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ees 18-Sep-1984 00:38: VAX=11 Bliss=32 V4, 0-742 p 
e-$ep=1984 12:30:83 DiSKSVMSMASTERSCFTIX,SRCILOCKERS.03273°" 
000] 0 MODULE LOCKERS ( 

LANGUAGE , (BL 18832) , 

IDENT = *v04=001 


BEGIN 


' 
RRO SERRE RARE AEE AEAAHAAHEEHAAEHEHEHE HEE EEHE HEHEHE REHEAEHRHERHHERATAAAKERee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED 


ie® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


; L OTICE. 0 
!® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
om Paamarchniee” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJE 
AND SHOULD NOT BE CONSTRUED AS A COMM 
ie CORPORATION. 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Add MAKE _FCB_STALE routine. 
NEW_ACCESS_LOCK does not need to be global anymore. 


v03-024 CDS0022 Christian D. Saether 15-Aug-1984 
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00 ie 
i 
ee l pocnennebsdabedbdasasebonabnekaaabesnsmnaeennensenuaninssennnenneneenbaie 
4 'e¢ | 
00 ! 
00 FACILITY: FI1IACP Structure Level 2 
$6 5 ; ABSTRACT: 
0037 | | | 
its 1 ENVIRONMENT : | 
40 0040 1: STARLET operating system, including privileged system services 
o 0041 and internal exec routines. 
<3 Bee 
44 4 ! 
46 é AUTHOR 
4 i j 
$8 4 MODIFIED BY: 
0 0 : v04-001 ACG0463 Andrew C. Goldstein, 66-Sep-1984 15:36 
1 1 Always use volume lock as parent of cache locks 
§ § v03-025 CDS0023 Christian D. Saether 23-Aug-1984 
5 5 
$ $1 
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H 3 
16-Sep-1984 00:38: VAX-11 Bliss-32 V4.0-742 Page 
12-808-1 38 99:38:43 DISKSVMSMASTER:CF1iX.SRCILOCKERS.B32: 2° (1) 
Make NEW_ACCESS_LOCK global routine. 
Return zero for lock index in serial_file if 
file number passed in is zero. 
Remove use of MARKDEL in access lock value block. 


Have CER SANCEL return success if lock actually 
granted, failure if not. 


CDS0021 Christian D. Saether Me Tae | alae 
Do not store value block in conv_acclock if i 
was not updated. 


CDS0020 Christian D. Saether 10-Aug-1984 
Do not attempt to update fcb from value block in 
conv_acclock when the lock is dequeued. 


v03-021 ¢DS0019 Christian D. Saether G-Aug 1986 
Set STS_HAD_LOCK flag in SERIAL_FILE routine for 
use by OPEN_FILE and CLOSE_FILE: 


v03-020 ACG0438 Andrew C. Goldstein, 19-Jul-1984 19:34 
Add CACHE_LOCK subroutine to handle special cache locks; 
add central dequeue routine. 


v03-019 CDS0018 Christian D. Saether 18-May-1984 
Force cache miss by incrementing buffer sequence 
numbers on locks when valnotvalid error returned 
by the lock manager. 


v03-018 CDS0017 Christian D. Saether 10-May-1984 
Expand test for locking to include whether we are 
a cluster at all. | 


v03-023 


v03-022 


v03-017 CDS0016 Christian D. Saether 99-May-1984 
Retry on a deadlock error. 
v03-016 CDS0015 Christian D. Saether 7-May-1984 


C 
Perform extra conversion on access locks 
after upward conversion to make them sysowned again. 


v03-015 CDS0014 Christian D. Saether 5-May-1984 
Bugcheck on access lock conversion failures. 


v03-014 CDS0013 Christian D. Saether 20-Apr-1984 
Revise access lock handling. 
Add routines NEW_ACCESS LOCK, CONV_ACCLOCK, 
ARBITRATE_ACCESS, LOCK_COUNT, QEX_R_CANCEL. 


v03-013 cDdS0012 Christian D. Saether 10-Apr-1984 
Bump PMS counters for various locks and stalls. 


v03-012 ACG0408 Andrew C. Goldstein, 23-Mar-1984 14:46 
Add AST per guater so that impure storage is fully based 
Make APPLY_RVN a macro 


v03-011 ¢DS0011 Christian D. Saether 7-Mar-1984 
Clear BITMAP _VBN when releasing the allocation lock 
so that the Bitscanner doesn't think bitmap_buffer 
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1$-Se0-1966 00:58:25 vAR-H1 etise=52 v4. 0-7 


D. Saether 19-Feb-1984 
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REJLOCKERS.B32037 ( 


is stili good. 


v03-010 CDS0010 
Save/restore V DATASEQ (0). 


8. 
on lowering locks. 
Cc 


— 3 


ON_UNLOCK routine. 
K for lockbasis. 


v03-009 ey a Christian D. Saether 30-Dec-1983 
Use L_NORM Linkage and BIND_COMMON macro. 


v03-008 Cosco. Christian D. Saether 6-Dec-1983 
or Ho He | gaia to determine which name space 
a lock is in. 


v03-007 CDS0007 Christian D. Saether 19=0¢ t-1983 
Do NOT clone NOALLOC in allocation lock value block. 


v03-006 CDS0006 Christian D. Saether 15-0c t-1983 
Call FLUSH_LOCK BASIS from the allocation a 
routine. This Fixes a bug in create where t 
allocation lock was being released without Javal {dating 
the buffer. 


v03-005 CDS0005 Christian D. Saether 11-Oct-1983 
Add routine to wait for blocking lock and 
rearm if necessary. 


v03-004 CDS0004 Christian D. Saether 3-0c t-1983 
Set CURR_LCKINDX on serial. file. Clear if match 
on release_serial_lock 


v03-003 CDS0003 Christian D. Saether 12-Sep-1983 
New lock name format. 
Save volume context flags. 


v03-002 CDS0002 Christian D. Soother 28-Jun-1983 
Make access lock a system owned loc 
Normalize RVN part of lockid for SERIAL FILE. 
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v03-001 CDS0001 Christian D. Saether 16-May-1983 
te tl resource name does NOT include file sequence 
number. 
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LIBRARY RU SEL ORARY 1 18,L 52"; 
REQUIRE ‘SRCS$:FCPDEF .B32°; 


MACRO 
LCK_STS = 0,0,16,0 i. 
LCK~1D = 4,6,$2,6 x 
FORWARD R 
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OUT INE 
NEW ACCESS_LOCK : L _NORM 
LOCR_MODE : L7JSB_{ARG, 


1b-se 907-1 3Re 8:88:88 Nt UwGhAgteacch tig. sheaLockers.03203°° « 


ACCLO : L.NORM, | 
ARGLTRATE ACCESS : C_JSB’2AkGS, 


OUNT : LRORM, 

QEx_A CANCEL : LINORM, 

oot a FCB STALE me “NORM, *NOVALUE, 

RELEASE SERIAL LOCK": L_NORM NOVALUE, 
ATION_LOCR : L _NORA WN NOVALUE, 

att LOCATION: UNLOCK :"L_NORM NOVALUE, 


bb bd ed be a a 
—> at st th 
be a 4 


fun —-0O0@ 


7 BLOCK_WAIT™ : L_NORM NOVALUE, 
4 TAKE BLOCK LOCK : LINORM NOVALUE, 
7 DEQ ntOCK ; LINORM NOVALUE; ! dequeue a Lock 


POP O DOA RP e, e, e, , , S, , , 


DPV PV PUPV PV PV DVDS SPV SUVS SVSUSUSVSUSISUS SUS OUSUSUSUSUS USUAL US USUSUSVS US US USUSUSI SISA 


Y ; 
vos 00% 1 16-50-19 t SEBS Weal t eee Hie eee a ocners.03203% « 


BIND 
LOCK_VAL = LOCK_BLOCK + 8 : BBLOCK FIELD (AV); 


EXTERNAL 
PMSSGL_ACCLCK : ADDRESSING_MODE (ABSOLUTE); 


EXTERNAL ROUTINE ‘ , 
XQPS$F CBSTALE : ADDRESSING_MODE (ABSOLUTE); ! blocking routine 


! Generate the resource name to idgnt} fy the file in the cluster. 
i Prefix the entire lock with the facilit 


y code for the file system. 


$ } 1) 5 } ROUTINE NEW_ACCESS_LOCK (LCKMODE, FCB) : L_NORM = 

a F 11 $ 1 !e¢ 

3; 1 11 Y . 3 

$ 134 1388 : FUNCTIONAL DESCRIPTION: 

3 136 1181 1: This routine takes out a lock based on the given lock mode and file id, 

3 137 1% ¢ : using the appropriate qualifiers in the resource name. | 
3 6195 11 1 | CALLING SEQUENCE: 
: 136 1185 1 See routine header above. 
3; 19 11 1 i 
; 198 11 1 | INPUT PARAMETERS: 
; 199 1188 1! 

; 00 1189 1: IMPLICIT INPUTS: 

: 201 1190 1! 

: 08 1191 1 | OUTPUT PARAMETERS: 
; a 1138 1 i NONE 
3 04 1193 1 

3 05 1194 1 statin: OUTPUTS: 
g 5] <4 : FCBSL_ACCLCKID = Lock id of granted lock. 0 if no lock granted. 

b+ | 
3 08 1197 1 | ROUTINE VALUE: 
; 209 1198 1! 1 if access allowed 
: 210 1199 1: 0 if access not allowed. 

: 211 1200 1} 
3 \¢ 1201 1 | SIDE EFFECTS: 

3 1 1 Og 1! 

; 14 1203 1 i- 
: 15 1206 1 
; 18 1205 BEGIN 

: 1 120 

2 18 120 BIND_COMMON; 

: 19 1208 

: 220 1209 MAP 

3 1 : FCB : REF BBLOCK; 

; 4 1 LOCAL 

3 4 1 LOCK_BLOCK : BBLOCK 4), 

$ 5 1 RE SNAM : VECTOR 4, BYTE], 

: $ : RESNAM_D : VECTOR J] INITIAL (LONG (22), LONG (RESNAM)); 

5 8 1 

: 9 1 

3 0 1 

3 1 1 

3 § 1 

3 1 

3 36 1 

: 5 1 

3 $$ 1 

3 1 

: 38 1 

3 39 1 

; 240 1 

3; 241 1 

3 242 1 
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Sun 


CHSMOVE (12, 

IF CURRENT _VCB CVCB$W_RVN) EQL 
THEN CURRENT_VCB CVCBST_VOLCKNAM 
ELSE CURRENT AVI RVTST_VLSLCKNAMJ, 
RESNAM [6]); 


(RESNAM (18]) = .FCB CFCBSL_LOCKBASIS); 
PMSSGL_ACCLCK = .PMSSGL_ACCLCK + 1; 


'eeee 


BEGIN 

LOCAL 
STATUS; 

STATUS = SENQ ( EFN = EFN, 
LKMODE = . 


+L 
BLKAST = XQPSFCBSTALE, 
ASTPRM = .FCB, 
LKSB = LOCK BLOCK 
RESNAM = RESNAM_D); 
IF NOT .STATUS 
THEN 
IF (STATUS EQL SS$_NOTQUEUED) 
RETURN 0 
IF (STATUS NEQ SS$_VALNOTVALID) 
ERR_EXIT (.STATUS); 
END; ! of block defining STATUS. 


FCB CFCBS$B_ACCLKMODE) = .LCKMODE; 
FCB CFCBSLZACCLKID) = .LOCK_BLOCK CLCK_10); 


FCB CFCBS$V_DELAYTRNC) = 0; 
IF LOCK VAL AV_DELAYTRNCJ 


CFCBSV DELAYTRNC) = 1; 


SS$_NORMAL 
END; 


=PINPINININPINPINPIPININPININPINI NB AWB NIAAA WINN WI WINIIUPOPononononononononononononony 
_" 


; Attempt to acquire the lock. If granted then access is allowed. 


K ° 
FLAGS = LCKSM_NOQUEUE + LCKSM_SYNCSTS + LCKSM_SYSTEM 
CKSM_VALBLK + LCKSM_NOQUOTA + LCKSA_CVTSYS, 


FCB 
FCB CFCBS$L_TRUNCVBN) = .LOCK_VAL CAV_TRUNCVBN]; 


4 3 
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Ss 


eEXTRN se tts ACCLCK, XQP$FCBSTALE 
«EXTRN SYSSENO 


.PSECT $CODES,NOWRT,2 
003¢ 00000 NEW_ACCESS LOCK: 


OR Save R2.R5.R4 R5 : 
SE 34 ¢2 09002 SUBL2 a2, SP : 
16 DD 0000 PUSHL #2 : 1205 
04 AE 08 AE i 0007 MOV RE SNAM RESNAM Ds : 
08 AE 42313146 BF 00 0000C MOVL #1110520 ESNAM + 1230 
OC ar 6124 F 80 oo14 MOVW #24868, RESNAM+4 + 1231 
5 8 AA DO 0001A MOVL  -104(BASE), + 1234 
OE AO B85 OOO1E TSTW  14(RO) : 
07 12 00021 BNEQ 1$ : 
50 0080 CO 9E 00023 MOVAB 128(R0), RO + 1235 
03 11 00028 BRB 2$ : 1236 
50 9C AA 1 s1 002A 1$: ADDL3 #24, -100(BASE), RO : 
OE AE 60 OC 28 O002F 2S: MOVC Wi, RO), RE SNAM+6 t 1237 
50 08 AC DO 000 MOVL + 1239 
1A AE 4C AO DO 00038 MOVL PETROS RESNAM+18 : 
000000006 9F Dé 9005p INCL  @#PMS$GL_ACCLCK + 1241 
7E 7C 0004 CLRO = = (SP) : 1258 
000000006 8F DD 00045 PUSHL #XQP$FCBSTALE : 
50 OD 00048 PUSHL RO : 
7E 7C 00040 CLRQ. = SP) : 
18 AE OF 0004F PUSHAB RESNAM_D ; 
7E 7D 8F 9A 00052 MOVZBL #125, =(SP) : 
40 AE 9F 00056 PUSHAB LOCK BLOCK : 
04 AC dD 00059 PUSHL LCKMODE ; 
1E DD 0005¢ PUSHL &# ; 
000000006 00 OB FB 0005E CALLS #11, SYS$ENQ : 
18 50 €8 00065 BLBS = STATUS, > 1260 
00000988 = &F 50 D1 00068 CMPL STATUS. #2488 : 1262 
03 12 0006F BNEQ 3$ : 
50 04 00071 CLRL = RO > 1264 
04 90075 RET : 
000009FO —F 50 D1 00074 3$ CMPL = STATUS, #2544 + 1266 
03 13 00078 BEQL ; 
50 BF 00070 CHMU = STATUS : 1268 
04 0007F RET : 
50 08 AC DO 90080 4$ MOVL FCB, RO + 1272 
0B AO 4 AC 90 00084 MOVB = LCKMODE, 11(RO) ; 
50 08 AC 00 00089 MOVL : 1273 
48 AO 4 AE DO 0008D MOVL LOCK K BLOCK +4, 72(RO) F 
50 08 AC 00 00092 MOVL + 1275 
3 AO 02 BA 00096 BICB2 nn *35(RO) ; 
08 B AE 01 €1 OO09A BBC #1; LOCK_VAL, 5$ : 1276 
50 08 AC DO 0009F MOVL FC : 1278 
23 AO 02 88 000A BISB2 #2, 35(RO) : 
50 08 AC DO O00A7 S$: MOVL FCB, R : 1279 
50 AO 2c OA D6 OAB MOVL LOCK_VAL+4, 80(RO) : 
50 01 p 008 MOVL #1, RO > 1283 
4 0008 RET : 


; Routine Size: 180 bytes, Routine Base: $CODE$ + 0000 
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LOCKER 1-stp-1984 00:38: VAX=11 Bliss-32_V4.0-742 P 9 
voe-00% 12788871982 99:35:83 DISKSVMSMASTER:CF1iX.SRCILOCKERS.B32;2" (3) 
GLOBAL ROUTINE LOCK_MODE (ACCTL) : L_JSB_1ARG = | 
'ee 
! 
FUNCTIONAL DESCRIPTION: 


This routine calculates the appropriate lock mode based on the 
access control flags passed. 


CALLING SEQUENCE: 
See routine header above. 


INPUT PARAMETERS: ~ 


ACCTL = Access control flags 
FIBSV_WRITE = write access requested 
FIBSV_NOREAD = readers disallowed 
FIBSV_NOWRITE = writeres disallowed 
FIBSV_NOLOCK = override everyone else's locks 


IMPLICIT INPUTS: 
OUTPUT PARAMETERS: 
IMPLICIT OUTPUTS: 
ROUTINE VALUE: 
Lock mode (used as input to SYSSENQ service). 
SIDE EFFECTS: 


BEGIN 


—f tt se a te 
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ACCTL : BBLOCK; 

BIND_COMMON; 
! If NOLOCK is specified and the caller effectively has sysprv on 
the volume, use null lock mode. 
J zAcetL CFIBSV_NOLOCK] AND .CLEANUP_FLAGS CCLF_SYSPRVJ 

RETURN LCKSK_NLMODE; 
if pacer CF IBSV_WRITEJ 

IF .ACCTL CFIBSV_NOREAD) 

THEN 


! This is a writer disallowing readers and writers. 
LCKSa_EXMODE 
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err See ee " 
Laces 1$-seo-1986 00:58:35 waKedT atts 
eye Gace CF IBSV_NOWRITE) 


! This is a writer allowing readers but disallowing other writers. 


LCKSK_PWMODE 
ELSE 


! This is a writer allowing other readers and writers. 
ELS LCKSK_CWMODE 

IF .ACCTL CFIBSV_NOREAD) 

THEN 


! This is a reader disallowing other readers and writers. 
LCKSK_EXMODE 
IF .ACCTL CFIBSV_NOWRITE) 
THEN 


! This is a reader allowing other readers but disallowing writers. 
LCK$K_PRMODE 


> ts bs tn — 4 2s 2d 4 + 5 ts 2 2 2s 2 2 2 as 2) 2s ss _ st 


ELSE 
4 $ 18 @ reacer allowing other readers and writers. 
' This i der allowi h d d wri 
LCKSK_CRMODE 
END; 
07 50 14 £1 00000 LOCK_MODE:: 
BBC #20. ACCTL 
03 61 AA E9 00004 BLBC 1 (BASE), ig | 
50 D4 0008 CLRL ~— RO 
5 0000A RSB 
oF 0 08 €1 00008 1$: BBC #8, ACCTL, 3$ 
F A EQ 90 BBS tie 4 Atgit. 4$ 
gs Sis Berg 
BS $019 RSB 
50 02 1A 2$: MOVL #2, RO 
1D RSB 
04 50 A €1 1 3$: BBC #10, ACCTL, 5$ 
5 bo as: MOVL #5, RO 
00 RSB 
4 30 £9 $ 5$: BLBC accTL 6$ 
0 0 MOVL #3, RO 
C RSB 
50 01 ? 6$: MOVL #1, RO 
RSB 
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; 83 : ! GLOBAL ROUTINE CONV_ACCLOCK (LCKMODEARG, FCBARG) : L_NORM = 

; 1 1 tee 

; 391 1 1} 

; % i FUNCTIONAL DESCRIPTION: 

; 39% 1 1/ Convert the access lock for the given fcb. 

; 95 : : } Dequeve the lock entirely if the ref count is zero. 

iB  fipyt 
; 399 BEGIN 
; 401 88 BIND_COMMON; 
: 40 1390 2 EXTERNAL ROUTINE | 
; 404 31 KQPSFCBSTALE =: ADDRESSING_MODE (ABSOLUTE); ! blocking routine | 
; 406 1398 5 LOCAL | 
: 40 1394 FCB : REF BBLOCK, 

; 408 1395 LCKMODE : BY | 
: 409 1 %6 LOCK_VAL : REF BBLOCK FIELD (AV), 

; 410 139 LOCK" BLOCK : BBLOCK [24], | 
; 4] 38 STATOS; 
: 018 1400 2 FCB = .FCBARG; 
: 41g 1401 LCKMODE = .LCKMODEARG; 
: 416 1208 ! If lock id field is zero, we are not using locks for this device. 
: ait \ehe } The cluster test is made when the lock is initially acquired. 

: 419 1406 2 

3 4 9 1407 IF (LOCK_BLOCK CLCK_1D] = .FCB CFCBSL_ACCLKIDJ) EQL 0 

; 43@ 1409 RETURN SS$_NORMAL; | 
: 4g 141i 2 LOCK_VAL = 0; | 
> 426 1218 IF .FCB CF CBSB ACCLKMODE] GEQU_LCKSK_PWMODE 
: oe 1414 AND (.FCB CFCBSB_ACCLKMODE] GEQU™.LCKMODE) 

: 059 ret : | 
: 6 1219 ' Store value block on this conversion. 
7 eee 
; 4 ‘ 1420 BEGIN 
7 4 1421 LOCK_VAL = tock BLOCK + 8; 

; 435 14 é LOCK" VAL = 0; | 
i: 14 LOCK~VAL 00. 9 s $i 

3 437 1424 LOCK"VAL [8,0 ;" : 

; 438 14 5 LOCK“VAL £12,6,32,0) = 0; 

; 440 14 $ IF .FCB one cae 

; 44 14 ; LOCK_VAL CAV_DELAYTRNC) = 1; 

: 466 1431 LOCK_VAL CAV_TRUNCVBN] = .FCB CFCBSL_TRUNCVBN); 
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LOCKER Ib-se -1 VAX=11 Bliss-32 V4.0-742 e LOCK 
voosbot 10-885- 1984 93: 33: 83 DISKSVMSMASTER:CF11X.SRCILOCKERS.B32; 73 (3 VO4- 
: 445 1438 END; ; | 
> 44 14 ei CFCBSW_REFCNT) NEQ 0 By i 
> 44 1435 2 
; 44 1436 BEGIN : f 
; 450 14 LOCAL | : 

; $e) 16 : BLOCK _AST; ; i 
; ¢ § 1460 IF .LCKMODE GTRU .FCB CFCBSB_ACCLKMODE) | : f 
: 455 1448 BLOCK_AST = 0 | 4 
: 436 144 LSE | 3 i 
; 4 1444 BLOCK_AST = XQPSFCBSTALE; | ae 
; 458 1445 s | 
; 459 1446 STATUS = 3 
; 460 P 1447 SENQ ( EFN = EFN Ta | 
; 461 P 1448 LKMODE = .LCKMOD ; f 
; 46¢ P 1449 FLAGS = LCKSM NOQUEUE + LCKSM_SYNCSTS + LCKSM CONVERT | ; 
3 46 P 1450 LCKSM_ oye + LCKSAM_NOQUOTA + LCKSM_CVvTSYS, 3 
3 464 P 1451 BLKAST = * BLOCKZA s 
; 465 pe 145¢ ASTPRM = .FC | 
> 466 145 LKSB = LOCK BLOCK); | 3; / 
; 467 1454 a 4 
; 468 1455 IF NOT .STATUS e 4 
; 469 1456 T a 
; 4? 1457 4 IF (,STATUS EQL SS$_NOTQUEUED) | : j 
: 471 1458 THEN | : 
: 47 1459 RETURN 0 : 7 
; 47 1460 ELSE | oe 
3 474 1461 4 IF _(.STATUS NEQ SS$_VALNOTVALID) -s 
: 475 1066 ; THEN ? 
; $n 1667 BUG_CHECK (XQPERR, ‘access lock conversion failure’); : : 
; 478 1465 IF .LCKMODE GTRU .FCB CFCBSB_ACCLKMODE) : 8 
; 479 1466 THEN : 8 
; 480 1467 IF NOT | : 8 
> 481 P 1468 SENQ ( EFN = EFN : & 
; 48 P 1469 LKMODE = .LCKMODE, : 
; 48 P 1470 FLAGS = LCKSM NOQUEUE + LCKSM SYNCSTS + LCKSM_CONVERT | ; & 
; 484 P 1471 LCKSM NOQUOTA + LCKSM_CVTSYS, : 8 
> 485 P 1478 BLKAST = XOPSFCBST : f 
> 486 P 147 ASTPRM = .FCB, ¢ 5 
> 487 1474 4 LKSB = Lock BLOCK) : | 
; 488 1475 THE 3 
; ret sore BUG_CHECK (XQPERR, ‘access lock conversion failure"); ¢ i 
; (491 1478 ! Conversion was successful. Update fcb fields if value block was retrieved. : } 
: 49 1479 : Store new mode just acquired. | 
; 49 1480 . 4 
3 49% 1481 2 | 
3 495 14 é IF .FCB CFCBS$B_ACCLKMODE] LSSU L cKSK PWMODE : j 
; 436 14 : AND (.LCKMODE GEQU .FCB FCB B_ACCLKMODE J) ef 
: 498 1485 4 BEGIN | a 
3 rb i? ? LOCK_VAL = LOCK_BLOCK + 8; . i 
: 361 1488 4 FCB CFCBSV_DELAYTRNC) = 0; es 
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F .LOCK_VAL CAV_DELAYTRNCJ 


FCBSV_DELAYTRNC) = 
FCB fee L_TRUNCVBN) = Jot. “WAL CAV_TRUNCVBN); 
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GIN 
fF NOT $CEQ yg = .LOCK ante CLCK_1D], 
ALBLK = .LOCR_V 


EN 
BUG_CHECK (XQPERR, ‘Unexpected lock manager error’); | 


4S FCBSL_ACCLKID) = 0; 
_CFCBSB “ACCLKMODE] = 0; 


SS$_NORMAL 
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END; 
FCB CFCBSB_ACCLKMODE) = .LCKMODE; 
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007¢ 00000 .ENTRY CONV ACCLOCK. Save R2,R3,R4,R5,R6 : 1375 
56 900000006 oF 9E 9002 MOVAB @#XQPSFCBSTALE, R6 : 
55 000000006 00 9€ 000 MOV SYSSENQ, oH ; 
3E 18 C2 0001 SUBL2 #24, SP : 
5 8 AC DO 0001 MOVL FCBARG FCB : 1400 
54 4 ac 90 0001 MOVB LCKMODEAR CKMODE ; 1401 
04 AE 48 Ag 09 90018 MOVL 2(FCB), Cock” “BLOCK +4 : 1407 
03 12 000 BNEQ 1$ 3 
0006 31 000 BRW 14$ : 
53 D4 00025 18 CLRL = LOCK_VAL : 1411 
04 0B A2 91 000 ¢ 11(FCB), #4 > 1413 
1¢ 1 0002B BLSSU -3$ : 
54 0B A2 91 0002D 11(FCB), LCKMODE + 1414 
16 IF BLSSU 3$ : 
53 08 AE 9E LOCK K BLOCK+8, LOCK_VAL > 1421 
63 7¢ CLRQ. —- (LOCR_V : 1422 
08 A3 7C 00039 CLRO gLOcRY te > 1424 
03 23, «OA 01 7 003¢ BBC #1, 35TFCB), 2% + 1427 
£ 0 4i BISB2 #2 (LOCK VAL) + 1429 
06 Ad 50 A2 D0 44 2% MOVL : (FCB), S(LOCK_VAL) + 1431 
18 «OA 8 49 3$ TSTW 4 (FCB) > 1434 
4C BNEQ 4$ ; 
008F ; af BRW 12$ : | 
0B A2 4 91 4$ CMPB LCKMODE , 11(FCB) > 1440 
4 18 3 BLEQU = 5$ ; 
9 D4 CLRL BLOCK AST > 1442. 
03 11 00059 BRB 6 ; 
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me TS BLOCK_AST 
BLOCK AST 


LOCK BLOCK 
KMODE, =(SP) 


#11, SYSSENO 
STATUS, $ 
S{ATUS. #2488 
RO 

SiATus. #2544 


<BUG$_XQPERR!4> 
_ 11(F CB) 


-(SP) 
#*M<R2,R6> 
-(SP) 


-(SP) 

ri0, -(SP) 

LOCK_BLOCK 
LCKMODE, -(SP) 


#11, SYSSENQ 
RO, 9$ 


<BUGS_XQPERR!4> 
11(FCB), #4 

118 

LCKMODE. 11(FCB) 
LOCK, LOCK+8, LOCK_VAL 
#2, 35(FCB) 

#1. (LOCK VAL), 108 


4(LOCK VAL} PO CFCBD 
CKMODE, 


ith XQPERR!4> 
CB) 
1 CGB) 
~ RO 
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S } GLOBAL ROUTINE ARBITRATE_ACCESS (ACCTL, FCB) : L_JSB_2ARGS = 
1 i 
; Determine if access to this file is allowed. 
1 ine 
¢ BEGIN 
MAP 
ACCTL : BBLOCK, 

3 FCB : REF BBLOCK; 

re 2 BIND_ COMMON; 
¢ EXTERNAL 
re CLUSGL_CLUB : ADDRESSING_MODE (GENERAL); 
45 LOCAL 
re LCKMODE; 
48 IF .FCB CFCBSW_SEGN) NEQ 0 
? ERR_EXIT (SS$_ACCONFLICT); 
¢ iF NOT (.ACCTL CFIBSV_NOLOCK] AND .CLEANUP_FLAGS CCLF_SYSPRV]) 
4 IF .FCB CFCBSV_EXCLIJ 
5 OR .ACCTL CFIBSV_NOREAD] AND (.FCB CFCB$W_ACNT] NEQ 0) 
6 OR .ACCTL CFIBSV_NOWRITE] AND (.FCB CFCBSQ_WCNT) NEQ 0) 
: OR .ACCTL CFIBSV_WRITE] AND (.FCB CFCBSW_LTUNTJ NEQ 0) 
9 


EN 
ERR_EXIT (SS$_ACCONFLICT); 


IF NOT .BBLOCK CCURRENT_UCB CUCBSL_DEVCHAR2], DEVS$V_CLUJ 
OR .CLUSGL_CLUB EQL~0 


wn 


| 
| 
| 
N 
RETURN 1; | 
LCKMODE = LOCK_MODE (.ACCTL); | 
IF .FCB CFCBSL_ACCLKID] EQL 0 | 
| 
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9 
9 NEW_ACCESS_LOCK (.LCKMODE, .FCB) 

¢ IF .LCKMODE<0,8> GTRU .FCB CFCBSB_ACCLKMODE) 

i, CONV_ACCLOCK (.LCKMODE, .FCB) 

5 ELSE 
g SS$_NORMAL | 
5 END; ! of routine ARBITRATE_ACCESS 


~EXTRN CLUSGL_CLUB | 
OC BB 00000 ARBITRATE_ACCESS:: 
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LOCKER 19-5 ep-1984 VAX-11 Bliss-32 V4.0-742 e 
viet 14- at 1382 99: 38: $3 DT eKSVMGR STER: th F11X.SRCILOCKERS.B32; 39 Ast 
PUSHR #*M<R2,R3> 3 15146. : 
53 51 D MOVL 1, R : : 
D MOVL : | F 
2a COA : TSTW = 42 CF CB) > 1534 : 
é BNEQ 4 : | : 
04 3 4 €1 0000D BBC #20 ACCT 1$ : 1538) : 
01 «AA ES 11 BLBS BASE) § : F 
1A 22 Ae 3 £ 15 1$ BBS #3 4(F cB), 4$ + 1540 : 
05 5 A El 1A BBC #16, ACCTL, 2$ + 1541 
1A A2 iB Ole TStw ©. 26 (FCB) : 
11 12 000 BNEQ 6 4$ : 
05 53 £ 00 3 28 BLBC ACCTL 3$ + 1542 
"< 4 83 g TSTw  28(FCB) : 
0 1 00 BNEQ 6 4$ : 
0B 53 8 E1 00028 3$ BBC #8, ACCTL, 5$ + 1543 
“" A 83 0002F TSTW  30¢FCB) : 
4 00 2 BEQL 46s«5$ : 
0800 BF BF 00034 4$ CHMU #2048 + 1545 
D 11 00038 BRB 8$ : 
50 94 AA 00 0003A 5$ MOVL SAO iBASE} . RO + 1547) 
32 3c 60 AO—s«#E9. «000 BLBC  60(RO), 7$ : 
000000006 00 D3 0004 TSTL CLUSGL_CLUB + 1548 
eA 13 0004 BEQL «6s 7$ : 
50 3 06 0004A MOVL  ACCTL, RO + 1552 
FEBO 30 0004D BSBW LOCK _MODE ; 
53 50 D0 00050 MOVL RO, CCKMODE ; 
48 A2 05 0005 TSTL 72¢FCB) + 1554 
0B 12 00056 BNEQ 6$ : 
52 DD 00058 PUSHL FC : 1556 
53 DD 0005A PUSHL LCKMODE : 
FDBB SCF 02 FB 9005¢ CALLS #2, NEW_ACCESS_LOCK : 
14 11 00061 BRB : 
0B A2 53 91 00063 6$ CMPB LCKMODE 11(F CB) : 1558 
0B 1B 00067 BLEQU 7$ : 
3¢ DD 00069 PUSHL : 1560 
53 DD 00068 PUSHL LCKMODE ; 
FESF OCF 02 FB 0006D CALLS #2, CONV_ACCLOCK ; 
03 11 00072 BRB 8$ : 
50 01 D0 00074 7$ MOVL #1, RO : 1558 
OC BA 00077 8$ POPR #*°M<R2,R3> : 1564 
05 00079 RSB ; 


; Routine Size: 122 bytes, Routine Base: S$CODE$ + O1E4 | 


Pa 
oe 


MASTER: CF11X.SRCILOCKERS.B32; 


AM a V4.0-742 


VAX=11 
DISKSVM 


1986 92:30:83 


bese 
14*Se 


itt 


c 
= 
= se 
com ~ 
ay oe 
a = 
= 
— 
. ae 
at wu 2 
4 o a 
o z 
u" a i= | 
°o oO 
= a = (=) 
a = - t 
4 at 4 
w ‘= c=) 
a oO fo} °o 
) — ce a 
. 
= *. a @ 
~ eee _ c 
~ ad orn z . a=] —- 
r=) — ov | -_ wy ray 
— a Oe an co > 
cet a=) o-+ vr elem re) o 
Vv a za “Zz “~Ii-~ © = 
oO we N va vEew a 
4 @ _ +O Own x - 
~ a ww we *J- @ a °o 
v uw Aw»2~ zo Cc 
aad o 4 =O eut &- 5S aie 
2 w aw *—wO:O ww HW «= 
~ J ww oo wuio a 
oOo © = u are . 
vw —a nhunn qn «x 
t a w ma Zoom « 
Me xo > OOo BME WwW 
v vt 7 Oooo + wero a 
oO oe  «- ees 8 ofy ~~ Je ao ee 
aan NN = - oO oon x 2 
” rr + 3B — = 
ive} wy ouwe ess OD oO 
=z or veut BG * OOooeo + mw “x Y 
a . ~oz ww -— ess wy ~~ mw 
_ “oa vunuw oONuvTweonr- w v& 
3 c- Orr 2 2 eit os =— & 
54 ate = = “Oo ~ J 
a ov “x 2D eee q ° 
2O ve - MWWMWwwuw oo 
— a v oOo YW Sete a 
=< ~ z 8 al —_> & J...) S$ o =< 
s ae - a « *z Zzzz=z Zz —_ 
-+ or 4 Oo 2 ve w Ww w - a 
w+ o we Oo = Kee _ wz 
Dw wm mem rms @ @ at be ed 8 oe ae oo) - a w 
NURI DUIFUIRUIRUCUIRUI FU CUIKUICU CUCU CUCU KICU CCUM CUEUEUNNN 
w DEOK MM TNOPR- DP O CUM TMNOR. DHOOM CUM TMOR. DOO 
DOOOOOPP-PP-PP-P-P-F- RR. DDDDDDDDDDOCPOOAOCOROOOOCO 


MUAAAA VASA AAA OO 
Se el el el eel el el el el el eel el eh le el le el ee el eh eh eh el 


DDDOHDODDOOFTOCFOSAFROOOOSOOSO oS EN eee 


PRPS HR HS FS HTS HS HS HS TSHR HS HS HS HS FTE FS HS HS HS FR HR FO TR HSCS Sere sete seseare *e te tere 


-EXTRN SYSS$GETLKIW 


wn Oonw 
oo © @w coco 
wow wo wr, 
CF HPF POM E 
*e*e rte rere ee ee eeeeeseeeaere ee ee tere 
ao 
c 
- 
= w 
~~ + 
o toe 
Cc nn 
“ee 
a | 
> z= 
oe wu 
” cman 
— 
. 
-_- * ~~ 
z Or + 
— -Zze _— 
oa. -2M ” 
eNK%aGdC OC OO ~~ 
(i= £& DBDeIRnAnJWe 
et ort aaoz wx 
Vou = MUWMNMWLO 
ON0Oe-- MORrw~wrF- OM 
2-2 Bi!) 1M 
> 
Rey @ 64 222 
Kwon jicogwtirtst 
ZOrwrr Sree ecuwwuwnnm 
wo Z0wood jiidDa252> 
“eK OEeetEeowwaaaa 
A 
- 
VSSs wotouwcewr< 
oo ak ed be 


SOoOoOoOoCOoOOoOoOSoOoOoOoOSSo 
SOOOOOOCOOoOoOoOooooo 
SOOOCCOOOOOOOSCSoO 


ONIMNVO TFT OWV UT eee CO 
BUSH SOS Sees 


o 
VET — BWW 
—-<£OooOo @OOdh-fs- eect 
wv we ove 
o co Oo NO 
So 
So 
wo 
Oo 
™N 
o 
ad Oo ww 
al ww <a 
wo 
oo 


Loved Sinead tal SAR aed | 
ese 1fgeoc1gge 9:38:83 BISA vmmaSfenschtixsseeaLoccers.e32;3°° «8s 
000000006 80 bu eB BLbS Hg SYSSCETLRIU ia. 

oP BR on, age ciuetatarttg® sa 

Dd RET ; 1601 


; Routine Size: 62 bytes, Routine Base: S$CODE$ + 025E 


SOOOOSOOOOSOCOOWoOoOoOooeovoe? 


st a tt 4 4 Wa 


PAPA 


RRR 3 3 2 OOOO 


AAO 
_ 
WN — SO OCONAMNE WN $0 OBNAUES WN HOW DNAUESWN ("OO ODNAUE WI 


WAG 
WO OONOUSWN—O 


PAAAAAAAAAAAAO 


Www 


vvv 
PARAEAAAAAAAAAAAAAAO 


INPOPoroTfone 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


AAPA AA AASAAA AA AAA 
ee ee ee 


GLOBAL ROUTINE QEX_N_CANCEL (LOCKID) : L 


'e4¢ 

! 

' Enqueve the vives lock for exclusive, cancelling the conversion 
if the lock is not granted. 


BEGIN 
LOCAL 
LOCK BLOCK : BBLOCK (81, 
STATOS; 
IF (LOCK_BLOCK CLCK_ID] = .LOCKID) EQL 0 
RETURN 0; 
STATUS = SENQ (EFN = EFN, 
LKMODE = LCKSK_EXMODE, 
FLAGS = LCK$M_RNOQUOTA + LCKSM_CONVERT + LCKSM_SYNCSTS, 
LKSB = LOCK_BCOCK); 


IF NOT .STATUS 
BUG_CHECK (XQPERR, ‘Unexpected lock manager error') 
IF .STATUS EQL SS$_NORMAL ' Lock was queued 
BEGIN 
IF NOT SDEQ (LKID = .LOCKID, FLAGS = LCKSM_CANCEL) 
BUG_CHECK (XQPERR, ‘Unexpected lock manager error'); 
ne 0; 


RETURN 1; 
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0000 00000 -ENTRY oex.N CANCEL, Save nothing 
SE 08 C 9008 SUBL2 #8, SP 
04 AE 04 AC 00 0000 MOVL OCKID, LOCK_BLOCK+4 
40 13 OOOOA BEQL $ 
7E 7C doc CLRQ = =( SP) 
7E 7¢€ 0000 CLRQ = =(SP) 
7E 7C€ 0001 CLROQ 5i3P) 
7E 2A 7D 0001 MOVQ #42, -(SP) 


ese ss SRA - ~4 


5 | 
Laces 1E-Sep-1986 00:58:25 WRIT BLise=52 V4.0-742, Page 32 
, 


, 22 


20 PUSHAB LOCK _BLOCK i) 

ee s ? : : : 

000000006 90 CALLS #11. SYS$ENG Bea i] 
BL stafus, 1 i 1626) : | 

WORD $_XOPERR! 4> : | : ! 

01 Cn TATUS, #1 : 1630) : 

SHL > 1634 : | 

0 ue jake perdi} 

000000006 90 sits #4, $ySSDEG | i] 
Gl ‘ ; 1636. 3] 

.WORD syves serena 4 ; 3 

50 st #1, RO | : : 

nw 6 ; 1643, 3) 

RET 3 i 1 


; Routine Size: 79 bytes, Routine Base: SCODES + 029C | 


IEgeect94e QUSHEGE YTB SEs oceens.osof8" (| H 
OBAL ROUTINE MAKE_FCB_STALE (FCBARG) : L_NORM NOVALUE = 


© 


FUNCTIONAL DESCRIPTION: 


For the given FCB, cause the yoyen: routine to be triggered 
to mark other fcb clusterwide as stale. 
: REF * seLock; 


1 
1 
1 
| 
1 
1 
BEGIN | 
BIND_COMMON; 
EXTERNAL 
CLUSGL_CLUB : ADDRESSING _MODE (GENERAL); | 
IF wor BBL CURRENT_UCB CUCBSL_DEVCHAR2], DEV$SV_CLU2 
eLusee CLUB EOL "0 


o 
SOLS RFUNLS 


SOAOAOS 


=SSaTene 


carina 
FCB 


THEN” 
RETURN; | 


SSSESETESES 


a ee ae ed oD 


ea FCB = .FCBARG; 
5 ors CURRLKMODE = .FCB [FCBSB_ACCLKMODE); | 
24 or? te CFCBSL_ACCLKID) EQ. 0 
696 er IF NOT NEW_ACCESS_LOCK (0, .FCB) 
i 
$9 rt BUG_CHECK (XOPERR, ‘unexpected lock manager reaction’); 
6 1 If QEX_N_CANCEL (.FCB CFCBSL_ACCLKID)) 
° § ! If the lock was granted, note that by setting the lock mode field in the fcb. 
1 : : ppse, au st be done so that conv_acclock does the correct thing with the value 
' block. 
5 THEN 
4 . FCB CFCBSB_ACCLKMODE] = LCKSK_EXMODE; 
4 14 CONV_ACCLOCK (.CURRLKMODE, .FCB); 
710 38 END; 


-ENTRY FCB STALE. Save R2,R3 > 1644 
50 94 «AA 008 8000s MOVL mo TBASE), . ; 1666 


Ra ae tes iad aan ec ae 


~3een 38S PSiHBs | Peednthadteacchtig-cmeaoccens.e3203°" cbs 


Se 


3E A : C (RO), 38 3 
000000056 00 eee ‘we 9 Lua + 1667 
er : 167 
3g ROVE Wr Cress + EARL KMODE ; 1673 
IsTt + 167 
BUSHEL FCB : 1677 
FCED CF hits *3 W_ACCESS_LOCK : 
. be Be ‘ws 
WORD $_ XOPERR!4> : 
1$: PUSH rr) : 1681. 
FF7A ft CAL vi, EX_N_CANCEL $ | 
6LB RQ. 3 
0B A2 MOVB #5. :11(FCB) : 1689. 
2$ PUSHL FC ; 1691 
7E MOVZBL CURRLKMODE, -(SP) : 
Foe2 =F CALLS #2, CONV_ACCLOCK 3 
3$ RET ; 1693, 
| 


; Routine Size: 73 bytes, Routine Base: SCODES + O2EB 


me ee aa a at at at at at et = tt 9 4 


———— paras —— 
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RCILOCKERS.B3203"" (9) 


; 1 $ 1 GLOBAL ROUTINE SERIAL_FILE (FID_ADDR) : L_NORM = 

OB di 

; a 1698 1 | FUNCTIONAL DESCRIPTION: 

; } } } ; Returns the index of the lock block selected. 

; 1 

: i BEGIN 
; 1705 

; if FID_ADDR : REF BBLOCK; 

; | 6 7 BIND_COMMON; 

; 17 EXTERNAL ROUT 

; 141% CONT HUE THREAD : NORM NOVAL 

; ? 1716 WAIT_FOR-AST —: t “NORM VALUE: 

s, 1714 2 EXTERNAL 

: 7 1715 PMSS$GL_SYNCHLCK : ADDRESSING_MODE (ABSOLUTE), 

r f : 1716 PMSS$GL_SYNCHWAIT : ADDRESSING MODE (ABSOLUTE); 

a, 171 LOCAL 

7 i a es 

: 7 1721 LOtk_BASIS INITIAL (0), 

: 740 17 ; LOCK "BLOCK BBLOCK 241, 

: 761 17 VECTOR 0, BYTE), 

: 2 17 4 RESNAM_D VECTOR £2) INITIAL (LONG (10), LONG (RESNAM)); 

: Phe 17 BIND | 
; 245 7 $ LOCK_VAL = LOCK_BLOCK + 8 : BBLOCK FIELD (FC); 
; Fe 17 LOCK_BASIS<0,1 > = .FID_ADDR CFIDSW_NUM); 
; S, 7 LOCK~BASIS<16,8> = .FID-ADDR CFIDSB-NMX); 

oe, 17 ; IF .LOCK_BASIS EQL 0 | 
Tee 17 THEN 

; ? ; 17 6 RETURN 0; 

: 754 17 LOCK_BASIS<24,8> = .FID ADDR CF 1D$B_RVN); 

; 4 5 7 APPLY_RVN (LOCK_BASIS<2%,8>, .CURRERT_RVN); 

: 7 17 ! Initialize index to 1. 0 is specially reserved for the volume 

3 P38 1740 ' allocation lock. 

: 08 ee 

: 761 1708 LB_INDEX = 1; 

3; 76 1744 

oe? 1508 § ” pecin 

; 765 1763 F jtOCK.BASIS EQL .LB_BASIS C.LB_INDEX) 

: 76 1709 EXITLOOP; 

: 768 1750 


voeeb0t 1b-se0n198e 99:38:93} PIScSuMGMASTERSLY Tike sReILOCKERS.B32037" ay 
B_INDEX = .LB_INDEX + 1; | 

UNTIL .LB_INDEX EQL LB_WUM; 

IF ;LB_INDEX NEQ LB_NUS 


SAVES 


END; 
LB_INDEX = 1; 


wmluwrT 


~ 


BEGIN 
r -LB_LOCKIN C.LB_INDEX] EQL 0 
ee ERITL 
INDEX = .LB_INDEX + 1; 
UNTIL .LB_INDEX ECL LB_NUM; 
it pL S_Imek EQL LB_NUM 
BUG_CHECK (XOPERR, ‘Failed to find free lock block"); 


‘eeee 
Generate the resource name to identify the file in the cluster. 
‘eene 


Prefix the entire lock with the facility code for the file system. 


(RE SNAM FY} 5 *F11B*: 
(RESNAM [4])<0,16> = ‘$s'; 


(RESNAM (6]) = .LOCK_BASIS; | 
PMSSGL_SYNCHLCK = .PMSSGL_SYNCHLCK ¢ 1; | 
| 
| 


SAS PERS TREES OT 


me a a a a a a ed ed dd od dd 


10 RETRIES = 0; 
\g WHILE 1 DO | 
14 BEGIN 
15 LOCAL 
16 STATUS; 
18 P STATUS = SEN CEFN = EEN. 
1 Pp MODE = LCKS$K_PWMODE, 

0 e ¢ FLAGS = LCKSM_SYNCSTS + LCKSM_SYSTEM + LCKSM_VALBLK + LCKSM_NOQUOTA, 
1 iJ LKSB = LOCK _BCOCK 

é Pp PARID = .(IF .CURRENT vce Cycesu, RVNJ Ege 0 

P 1805 THEN CURRENT_9 VOLLKI 
é Pp ELSE CURRENT™ RvE RVTSL~ e7RuCLRIDD), 
5 P ASTADR = CONTINUE THREAD, 


£2 


ee ee ee ee ee ee ee em ee ee ee ee ee ee ee ed ee ed ee ee el el 
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; 
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; 
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; 
; 
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‘ 
; 
an 


a a 


creerer yard Shine k2 


M8 3 itl 
Sen” » STATUS 
GIN 
or (. STATUS); 


re EQL SSS_NORMAL 


Pasha wig} = .PMSSGL_SYNCHWAIT + 1; 
yAlT FOR_AST ( 


if NOT .LOCK_BLOCK CLCK STS) 
an CLCK_STS) EQL SS$_VALNOTVALID 


The ane A ——— poy not contain the most current information. 
Other node aey have made more recent modifications that are 
reflected on disk, so we must force a cache miss. 

It may actually be the case that +" copy is valid because we were 
the last to touch this, but we can that and the disk 

will have the same contents as our buffer. so the only cost 

is an extra read if that happens. 


IN 
ati K_VAL CFC_HDRSEQ) = .LOCK VAL CFC_HDRSEQ) + 1; 
LOCK=VAL FC"DATASEQ) = .LOCR_VAL CFC_DATASEQ) + 1; 


IF oh OCK rth CLCK STS] NEQ SS$_DEADLOCK 
-RETRIES GEQD 2 


x 
ERR_EXIT (.LOCK_BLOCK ELCK_STS}); 
RETRIES = .RETRIES + 1; 


ELSE 
EXITLOOP; ! i.e., operation was successful 


END; ! of block defining STATUS. 


tB-bocKo {.LB_INDEX) = .LOCK Mate CLCK_10); 
SIS C.LB_TNDEX) = .LOCK _BAS 


LB_HDRSEO (.LB_ INDEX) = .LOCK VAL <e HORSEQ 
te DATASEO LC. .6_ INDEX) = sLOCR_vAL CFC MOATASEG):; 


CURR_LCKINDX = .LB_INDEX 


CF1IX.S or EREILOCKERS.83203°" 


By 
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; 883 1865 1 END; ! of routine SERIAL_FILE 


CONTINUE _ THREAD | 
WAIT_FOR-AST, PMSSGL_SYNCHLCK 
PMSS$GL_SYNCHWAIT 


mee i SERIAL_FILE, Save R2Z,R3 : 1694 
SE 3¢ C #44, § : | 
Lock BASIS > 1706. 
04 OA #10, “RESNAA ; | 
ni o¢ aE RESNAM, RESRAM_D+4 : | 
5 AC D FID_ADOR, R + 1729 
6E (ROT, LOCK BASIS ; 
02 0S A 5(ROS, LOCR_BASIS+#2 : 17 
i p LOCK Asis + 1732 
\ RO 3 1734 
03 AE 0 9 10 4(RO), LOCK_BASIS+3 + 1736) 
03 A +4 ; oF 6 (BASED OCK_BASIS+3 hay 
of 0 A ? 0( Ck BASIS+S. at F 
mo MAD =96 (BASE) : | 
03 A LOCK_BASIS+3 : 
53 01 »D B_ INDEX : 1743, 
0080 cad : : otk BASIS, 128 (BASE) CLB_ INDEX] : 174 | 
LB_INDEX + 1751 
05 ; pe LB- INDEX, #5 3 1753 
‘sf - 
05 i : B_INDEX, #5 : 1755 
AG OA #2, -90(BASE) : 1758 
52 a} D 196 LB_INDEX : 1503 
6C AA 3 b3 f TO6cBASE)ELB, 1NDEX3 : 176 
LB_ INDEX + 1769 
05 ; bf “INDEX, #5 : 17 1 
05 of LB_INDEX, #5 : 1773) 
rent 1775. 
opnoe <BUGS XOPERR! 4 ; 
9 AE 42313146 af D f 95201 4, RESNAM : 1785 
6 AE 32 F B #29476, RESNAM+4 : 17 
12. AE — D LOCK BASIS. RESNAM+6 : 17 
000000006 9F D @ePMS$GL_SYNCHLCK : 1790 | 
e Be atSP) + 1805 
7E be -(5P) : | 
SA DD HL BASE : 
CF OOF PUSHAB CONTINUE _THREAD : | 


MOVL <-104(BASE), RO 
TSTw © 14(RO) 
BNEQ §=-:*'118 
MOVAB 124(R0), RO 
BRB 1 
MOVL (BASE), RO 
PUSHL (RO) 
PUSHAB R RE SNAM_ D 
PUSHL 

5 tock BLOCK 
PUSHL a 

$ ¢ : 
CALLS #11, SYSSENQ 
FOVL RO, STA 
BLBS STATUS, 13$ 
CHMU = STAT 
RET 
CMP! STATUS, #1 
BNEQ 4$ 
INCL  @#PMSSGL_SYNCHWAIT 
CALLS #0 R. 
BLBS = LOCK_BLOTK, 8s 
CMP cK “BLOCK. #2544 
BNEQ 
INCL - LOCK_VAL 
INCL CKTVAL+4 
BRB 
CMPW OCK_BLOCK, #3594 
BNEQ 
CMPL RETRIES, #2 
BLSSU 178 
CHMU  —- LOCK_BLOCK 


R 
INCL eerases 
BRB 10$ 


MOVL §LOCK_BLOCK+4 108 (BAS LB, IND x] 
MOVL LOCK “BASIS {ea¢ 


Font qed et INDEX] 
MOVL LB IADEX. *S0(BA SE) 
MOVIL. LBTINDEX. RO 


; Routine Size: 292 bytes, Routine Base: S$CODES + 0334 
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GLOBAL ROUTINE RELEASE _SERIAL_LOCK (LOCK_INDEX) : L_NORM NOVALUE = 


! 
Release the indicated serial_lock. 


BEGIN 
EXTERNAL R 
RECEA FALOCKBASIS : L_NORM, 
RELEASE” CACHE ZL se NOVALUE; 
cat aenilll 
LOCAL 
LKID_ADDR, 
LOCK“BLOCK : BBLOCK (24); 
B81 
LOCK_VAL = LOCK_BLOCK + 8 : BBLOCK FIELD (FC); 
1F jock. IMOEX EQL 0 OR .LOCK_INDEX GEQU LB_NUM 


BUG_CHECK (XOQPERR, ‘Invalid lock index’); 
LOCK_VAL 4s -HDRSEQ) = .LB_HDRSEQ f. OCK_INDEX]; 
tock “VAL CFCDATASEQ) = .LB _DATASEG C.LOCK INDEX); 
LOCK-VAL CFCFILESIZE) = .L6_ PILesiZe” LOCK. INDEX); 
Jf ,{LKIO_ADOR = RELEASE_LOCKBASIS (.LOCK_INDEX)) NEQ 0 
BEGIN 
LOCAL 
STATUS; 
LOCK_BLOCK CLCK_ID] = .LB_LOCKID C.LOCK_INDEX); 
STATUS = SENQ ( EFN = EFN, 
LKSB = LOCK_BLOCK 
FLAGS = UcKSA CONVERT ¢ LCKSM_VALBLK + LCKSM_CVTSYS + LCKSM_SYNCSTS, 
LKMODE = LCKSR_NLMODE); 


IF  STATUS<O, 16> NEQ SS$_SYNCH 
aaaael T .LOCK BLOCK CCCK_STS) 


BUG_CHECK (XQPERR, ‘unexpected lock manager error’); 
-LKID_ADDR = .LB_LOCKID C.LOCK_INDEX); 
RELEASE _CACHE (); 
ELSE 
IF NOT S$DEQ (LKID = .LB pecan C.LOCK_INDEX], 
VALBLK = LOCK_V 


HEN 
BUG_CHECK (XQPERR, ‘Unexpected lock manager error’); 


$2 


ee ee a a a a a a a a a a a 
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LOCKER o-se “1 VAX-11 Blise-32 V4.0-742 
Leeebor 16-Se0-1984 99: 3: $3 DISKSVMSMASTEK:LF11X.SRc LOCKERS B32; rl 
: H ‘ IF LOCK INDEX EQL .CURR_LCKINDX 
3 945 1966 CURR_LCKINDX = 0; | 
; 1 LB_LOCKID C.LOCK INDEX) = 0; | 
; ‘ LB“BASIS C.LOCK_INDEX] = 0; 
; 1 END; | 
.EXTRN RELEASE -LOCKBASIS 
“EXTRN RELEASE~ CACHE 
000 ENTRY BEL EASE SE_SERIAL_LOCK, Save R2,R3 : 1867 
SE 18 C2 00 SUBL2 #24, SP : 
04 aC : 0 Ist OCK_ INDEX ; 1888 
05 06 ac D1 800k CPL LOCK INDEX, a5 : 
OF ere OOOTD 18 Sueur : 1890 
‘. {p000 a oro <BUGS | XOPERR:4> : ihe 
08 AE 4 CASO D Epa MOVL Hine » LOCK_VAL : 
OC AE AB CACO D 1F MOVL (BASE)EROJ. LOCK-VAL+4 : 1893 
10 AE OBC CA D0 0 6 OV i 88 (BASE) CR * LOCK"VAL+8 1894 
00006 CF 1 F F CALLS RELEASE LOCKBASIS ; 
2 0D MOVL it D_ADBR : 
50 a od 5 Bove 1902 
06 «AE 6C AAG p 0 MOVL ffl tio® LOCK_BLOCK+4 : 
7E 7C CLRO : 1907 
7E 7 004 CLRO ~(3p) : 
7E 7C€ 0004 CLRQ 0s =( SP) : 
7E D4 CLRL = i$ : 
7E 4B BF OA B MOVZBL #75, -(SP) : 
20 AE 9 PUSHAB Lock K_BLOCK : 
000000006 0b O68 fe Mts Bil. SYSSENO : 
0689 oF 61 cMPY status. #1673 ; 1909 
04 6E es BLBS LOCK_BLOCK, 4$ : 1919 
: 000s atoRD <BUGS XOPERR: 4> 2 ait 
23 C Anno 6 MOVL 108 Base) LA0}. (LKID_ADDR) : 
00006 BSBW _ wana : 1916 
1B 11 BRB 6 > 1896 
7E 7C CLRO ots SP) : 1920 | 
10 AE OF PUSHAB : | 
50 04 ac DO MOVL i INDEX. ; 
6C AAGO DD PUSHL ge grsboee : | 
000000006 00 04 FB CALLS ; 
‘af its 922 
0000* WORD pray. : | 
| 


weit iEScp-184t 99:95:83 NaN cca ant oB 
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14 AA 06 at i ; 68: sees —— 20(BASE) ; 1926 : 
ee es ee an cae Wb) Et 

50 i MARC BO 9008 ov Nae tg ‘1929 
0080 cand D4 000A9 CLRL 1 oS tease ChO} ; $1, 

04 OOOAE RET + 1931 ; 


; Routine Size: 175 bytes, Routine Base: SCODES + 0458 


; 951 1932 1 
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PS 


| 

; 3 ! } GLOBAL ROUTINE ALLOCATION_LOCK : L_NORM NOVALUE = | : 1, 
: 955 1935} 14+ | ae 
3 § § 1 ;} at 
: 3 | | FUNCTIONAL DESCRIPTION: 3}, 
: 9 1989 | in 1 
; 1 : 1 
; 9% ! BEGIN at 
; : 4 
; 368 1968 EXTERNAL at 
; 368 1948 EXESGL_SYSID_LOCK : ADDRESSING_MODE (GENERAL); et 
; - 4! 
; 1 BIND_ COMMON; 2, 
3 367 1909 4 at 
: 968 1948 ¢ EXTERNAL ROUTINE at 
: 96 194 CONTINUE THREAD : L_NORM NOVALUE, Het 
: 970 1950 WAIT_FOR-AST =: t “NORM NOVALUE; et 
; 97¢ 1982 EXTERNAL it 
; 9? 19 PMS$GL_VOLLCK : ADDRESSING_MODE (ABSOLUTE), Het 
> 97% 1954 PMS$GL-VOLWAIT : ADDRESSING-MODE (ABSOLUTE); i: 
: ore 1986 § LOCAL i 1; 
: O73 1989 RETRIES et 
: 978 1958 LOCK BLOCK : BBLOCK (24), 3 
3 9 195 PARERT_ID, at 
; 980 1960 SNAM : VECTOR (18, BYTE), et 
; it 1961 RESNAM_D : VECTOR C2] INITIAL (LONG (18), LONG (RESNAM)); et 
i 388 1968 3 BIND : 1; 
; oae Hb LOCK_VAL = LOCK_BLOCK + 8 : BBLOCK FIELD (vC); yi 
3 986 1966 IF .LB_LOCKID CO) NEO 0 at 
; 98 196 N er 
i 988 1968 RETURN; : 1 
: 396 1970 5 teeee ty 
; 991 1971 ! Generate the resource name to identify the file in the cluster. : ui 
: 99 1978 ieeee * 
; 19 : 

3 a 4 Prefix the entire lock with the facility code for the file system. : 1 
; 197 : 1 
; 359 1977 (RESNAM £02) = *FIIB'; | Hy 
338 1978 ¢ (RESNAM [4})<0,16> = '$v'; | 3 I 
; 1006 1980 ¢ CHSMOVE (12, CURRENT_VCB CVCBST_VOLCKNAM], RESNAM (6); | si 
: 100¢ 198 2 PARENT_ID = 0; | 3 i 
: 1 19 IF .CURRENT_VCB CVCBSV_NOSHARE J | : i 
; 1005 1985 2 THEN 2 | : I 
: 19 PARENT_ID = .EXESGL_SYSID_LOCK; | 2 I 
; 1988 ¢ PMSSGL_VOLLCK = .PMSSGL_VOLLCK + 1; st 
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LCKSK_PWMODE, | 
FLAGS = LCKSM SYNCSTS + LCKSM_SYSTEM + LCKSM_VALBLK + LCKSM_NOQUOTA, 
PARID = .PARERT_ID, 

LKSB = LOCK BLOCK, | 
ASTADR = CONTINUE. THREAD, 

ASTPRM = .BASE 


1 
3 ! Attempt to acquire the lock. If granted then access is allowed. 
1 'eeee 
1 
1994 RETRIES = 0; 
1 WHILE 1 DO 
1999 BEGIN 
1338 LOCAL 
1 STATUS; 
1 STATUS = SENQ ( EFN = EFN, 
§ LKMODE = 
0 


vuvvvUU 


RESNAM = RESNAM_D); 
IF NOT .STATUS 
THEN 


oo 


PUN —OOONOUEWN —O0RNOMR UN ODE 


BEGIN 
ERR_EXIT (.STATUS); 
END; 


COOOCOCCCCOCOCOCOOCoCOoOOoOO 


IF .STATUS EQL SS$_NORMAL 
THEN 


+ 4 st st a ts ss 


BEGIN 
PMS$GL_VOLWAIT = .PMSSGL_VOLWAIT + 1; 
WALT FORAST QO; 


IF NOT LOCK BLOCK CLCK,STS) 
1F LOCK BLOCK CLCK_STS] EQL SS$_VALNOTVALID 


' Value block may not be the most current. Force a miss on cached 
buffers by incrementing all sequence numbers. 
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BEGIN | 
(LOCK_VAL [VC_ EQNUM) <0 16> = (LOCK VAL CVC_SEQNUM])<0,16> + 1; | 
(LOCK“VAL EVC7SEQNUM])<16,16> = .(LOCR VAL vC_SEQNUM])<16,16> +°1; | 
5 (LOCK-VAL EVCTFLAGSJ)<1,15> = .(LOCK_VAL CvC_FCAGSJ)<1,15> + 1; | 
EXITLOOP; 
END 
4 ELSE 
BEGIN 
040 IF .LOCK BLOCK CLCK_STS] NEQ SS$_DEADLOCK 
06 0 yor -RETRIES GEQD 2 
§ oc$ ERR_EXIT (.LOCK_BLOCK CLCK_STS]); 
5 045 RETRIES = .RETRIES + 1; 
066 046 END 


18-00-1964 99:35:83 — DESkSvmGRASTERCCE TIN oReILOCKERS.832~ at 


LSE 
EXITLOOP; 
END; ! of block defining STATUS. 
te tB-tockdo, oe LOCK BLOCK CLCK_ 1D); 
DATASEO J = .LOCR_VAL CVC_SEQNUAI; 


7 mpeets relevant fields in the VCB from the value block. 


Si Mich Seid Tenis VAL CVC_FLAGS); 
— “Eves - LOCK. =yAL ve. IBMAPVBN); 
Eye 7 SBMAPVEN]; 
NI-WEB 


R VEBSE “FREE K AVAL we 
funn aise C.CURRERT FREE) ey Ctvts ht _PCBFL FCB a = .LOCK_VAL CVC_IDXFILEOFJ) 


THEN 
BUG_CHECK (XOPERR, ‘Unexpected lock manager state’); 


END; ! of routine ALLOCATION_LOCK 


De Se Se Se Ge Se Se Ge Se Se Se Se Se Se Se Ge Se Se Ge Ge Ge oe 


-EXTRN EXESGL_SYSID_LOCK 
sEXTRN PMSSGL-VOLLCR, PMSSGL_VOLWAIT 


-ENTRY ALLOCATION_LOCK, Save R2,R3,R4,R5,R6 ; 1933 
ef 30 SUBL2 #4 P 3 
6 98 AA HOVAB “ S(BASE), R6 + 1944 
04 AE 08 AE MOVAB RESNAR RESNAM_D+4 F 
6C AA Ist 08 (BA $e) + 1966 
RET ; 
8 AE 42313146 a MOVL = #11 10520134. RESNAM : 1977 
C 62 F MOV) #30244, RESNAM+4 : 1978 
5 MOVL ), : 1980 
OE AE 0080 ¢ ¢ mOVC3 "128(RO), RESNAM+6 ; 
CLRL PARENT D : 1982 
5 MOVL : 1984 
ed ~.§ G ‘ #3, ,$3(R0) 28 PARENT_ID 249 
§o008000 f INCL SRPMSSGL VOLCCK e 7 19. 
2 CLRL 3 1994 
7 CLRO = = (SP) : 2008 
7E CLRL Os = (SP) ; 
SA PUSHL BASE : 
00006 cf PUSHAB CONTINUE THREAD ; 
PUSHL PARENT_IDB : 
18 Ag PUSHAB R NAM=D ; 
3 PUSHL 5 
3c. OCA PUSHAB t CK_BLOCK F 
04 PUSHL @ ; 
E PUSH 5 
08 ; 


& 
000000006 00 CALL fil, SYSSENQ 


24 


Sm 


3; Routine Size: 240 bytes, 


; 1089 2069 


1 


- a os = LOC 
thet OSs WARCHT BListes2 y4s0-7e2 oe aesPaoe. He | AGE 


03 8 BLBS TATUS. 4$ : 201 
Hi fF chm STAT Soi 
01 0 p C 4$: CPL TATUS, #1 : 2016 
ee BNE $ ’ | 
000000006 9F INCL asPms$c -YOLWAlT : 2019. 
00006 . F ALLS walt oon AST F | 
a | 5$ 8.8 (otk B 9$ : 2023. 
O9FO 8B 1¢ CMP LOCK. ste #2544 : 3025. 
1 BNEQ 3 
ar hey eect 8 
OF i EF f Ei a. + LOCK_VAL, RO 2035 
01 p tS 1096 INSY RO, #1, #15, LOCK_VAL ; | 
1 905 BRS : $03 
OE0A BF 1 OA 81 09E 68: CMPW x pce #3594 > 204 
¢ 000 BNEQ pane 
02 p ‘ CMPL  RETRIES, #2 > 2041 
F QOC BLSSU 3 
1c AE BF OOAB 7: CHAU LOCK_BLOCK + 2063 es 
2 06 NOAF 8S: INCL — ; 045 | 
eS : Bek : 20 
0080 CA 01 ¢ B3 9S: MNEGL 128(8 : 20 
Ba 0 AE D MOVL Lock Brockse, 108 (BAS E) + 205 
OOAS CA AE D MOVL  LOCK"VAL#12, 168(BASE) + 2054 
AG OMA 4 AE B MOV OCK-VAL, ~92(BASE) ; 2059 | 
5 66 MOVL R6), R + 2060 | 
Sa OA 26 AE MOVE LOCK’ VAL#2, 58(RO) ; 
5 66 MOVL )> ; 2061 | 
3B OC«A 27. oA MOVE  LOCK.VAL+3, 59(RO) ; | 
5 66 D MOVL  (R6)7 R + 2062 | 
40 A AE DO MOVL LOCK_VAL#4, 64(RO) 5 
5 B6 D MOVL  @0(RB) RO > 2063 
3c. A Se i: MOVL LOCK VAL¢ , 60(RO) : 
06 1 BNE 10s > 2064 
0089 6 CUORD  <BUGS_ XOPERR!4> — 
* : Z 
Bore 108 RET " : 2068 


Routine Base: SCODE$ + 0507 


Ne eee eee eee ——E = ——e = 


om SSOc1QEE QOHRSGE  YMGUAGALRERZ AHS LAPacoceens.os2l¥"" add 
| GLOBAL ROUTINE ALLOCATION_UNLOCK : L_NORM NOVALUE = 


! This routine ates the Ay 4 block and releases the current 
; volume allocation lock, i 


mn 


22 


rece g 


BEGIN 

BIND_COMMON; 

LOCAL 
LOCK_BLOCK : BBLOCK (24), 
LOCKTD; | 

5 EXTERNAL | 

unite el 
RELEASE. rAOCKBASIS 2" tONORN: 

BIND 


LOCK_VAL = LOCK_BLOCK * 8 : BBLOCK FIELD (vO); 
IF (LOCKID = .LB_LOCKID (0) Ea 0 
RETURN; 
WRITE_DIRTY (1); 
RELEASE_LOCKBASIS (0); 
BITMAP_VBN = 0; 


oe te tt 


—OO@NO VF WN "OOO VFO 


LOCK_VAL [VC_FLAGS) = SAVE VCE 
LOCKVAL CVC" IBMAPVBN “CORRENT Neb vCBSB_ [BRAPVBN] 
LOCK VAL CURRENT VCBSB SBMAPVBN 


* VC" SBMAPVBN 

LOCK-VAL [VC"VOLFREE) = "Curent Ms 5 eve ce): 

LOCK"VAL CVC"IDXFIL OF) = 8B CURRENT {Re VCBSL_ pee FCBSL_EFBLKI; 
LOCKVAL CVC“SEQNUM) = .LB_ aye ' 


LB_LOCKID .*. = 0; 
LB-BASIS (0) = 0; 


IF NOT SDEQ (LKID = .LOCKID 
ant VALBLK = LOCK_VAL) 


BUG_CHECK (XOPERR, ‘Unexpected lock manager error'); 
END; ! of routine ALLOCATION _UNLOCK 


Se te Se Se Se Se Se Se Se Se Se Se Se Se Se Fe Se Se Se Se Se Se Se Se Ge Se Se Se Se Ge Se Se Se Se Se Se Ge Ge Se Se Se Ge Ge Ge Se Ge Ge 


ee ee ee a ee ee ae ee ed ed wd wd wt 


ee le et elt el el el el ll cl els el cll ls cel elt nals cls calls eal cel cells ells eel 


a a a a a ed ot ot 


.EXTRN WRITE_DIRTY 


0004 .ENTRY ALLOCATION_UNLOCK, Save R2 > 2070. 

56 18 ¢ SUBL2 ; 
6C AA p v 108(BASE), LOCKID ; 2091 

30 BEQL : | 

7£ 1 CE 000 MNEGL #1, =(SP) : 2095 | 


00006 CF 91 it, CALLS #1, WRITE_DIRTY 
f D CLAL. = §P) 
00006 CF 01 FB CALLS a RELEASE _LOCKBASIS 
B46 AA OG CLRL = = 7A (BASE) 
08 ar AG OA BB MOVW  =92(BASE) LOCK VAL 
5 8 AA mOvL $4 4 (BASES, R 
OA A A Ad #0 $8(RO) LOeK VAL +2 
5 8 AA mOVL =104(BASE), R 
0B A AO mO 59(RO) LOotx VAL+3 
2 5 AA MOVL =104(BASE), RO 
0c 40 ad D MOVL  64(RO), LOCK_VAL+4 
5 H BA D MOVL @-104(BASE),~RO 
10 f AO D MOVL 60(RO) LOCK_VAL+8 
14 AE OOAS CA D MOVL (BASE), LOCK_VAL+#12 
6¢ AA D4 CLRL = 108(BASE) 
00 A 06 CLRL 128 BASE) 
— 7C CLRO = =(SP) 
10 AE OF C PUSHAB LOCK_VAL 
52 0D PUSHL LOCKID 
000000006 00 o4 Fe CALLS #4, SYSS$DEQ 
0 € BLBS RO. 18 
FEFF 00064 BUGW 
0000* 66 «WORD  <BUGS_XOPERR!4> 
04 1$: RET 


; Routine Size: 105 bytes, Routine Base: SCODES + O5F7 


; 1138 2117 1 


6 
rE-sep-1966 00:58:g8 YAK]! BLiee=82 veiO-742 


Piatt id 


7 


| 


eef 


t 6 
eageen13BS 93:88:58 | MicbumBaAS fence! tikc ene svoccers.03203%* (18>, 


co 
wn 


ENEAOVE (12, CURRENT_RVT CRVTST_VLSLCKNAM], RESNAM [6]); 


STATUS = SENQ ( EFN = EFN, 
KMODE 


L = LCKSK_PWMODE, 

FLAGS = LCKSM_SYNCSTS + LCKSM_SYSTEM + LCKSM_NOQUOTA, 
LKSB = LOCK BCOCK, 
ASTADR = CORTINUE_THREAD, 

ASTPRM = .BASE, | 
RESNAM = RESNAM_D); | 


If NOT .STATUS 
THEN 
ERR_EXIT (. STATUS); 


wvvuvvUvU 


: 1140 1 1 GLOBAL ROUTINE BLOCK_WAIT : L_NORM NOVALUE = 

; 1146 BEGIN | 
; 1144 1 BUILTIN 

: 114 TESTBITSS; 

: 109 125 2 LOCAL 
: 116 1 é ACB : REF BBLOCK, 

+ 116 1 BLOCKID_A | 
5 11 1 8 ACTIVITY_A, 

3: 11 1 RESNAM : VECTOR (20, BYTE), 
$11 1 RESNAM_D : VECTOR INITIAL (LONG (18), LONG (RESNAM)), 

3 11 131 LOCK_BCOCK : BBLOCK ‘ | 
3 i ¢ ; § STATOS; 
711 $ 1 EXTERNAL | 
: 11 135 SCHSGL_SWPPID : ADDRESSING_MODE (GENERAL), 

: 1 é KOPSDEGBLOCKER : ADDRESSING-MODE (GENERAL): 
P | 
3 Be : ; BIND_ COMMON; 

: 116¢ 140 2 EXTERNAL ROUTINE 
: 116 141 CONTINUE THREAD : L_NORM NOVALUE 

+ 1164 148 XOPSBLOCR_ROUTINE : ADDRESSING_MODE (GENERAL), | 
: 1165 148 WAIT_FOR_AST : LNORM NOVALUE; 
: 1169 145 2 (RESNAM fo) = 'F11B"; 

: 1168 146 (RESNAM (43)<0,16> = ‘$b’; 

: 1170 148 IF .CURRENT_VCB CVCB$W_RVNJ EQL 0 | 
atte 180 § Meccan | 
; 1198 151 ACB = CURRENT VCB CVCB$B_ACBI; | 
> 117% 138 ACTIVITY_A = CURRENT VCB-CVCB$w_ACTIVITY); 

> 1175 15 BLOCKID_A = CURRENT_0CB CVCB$L_BLOCKID); 
3 1178 133 CHSMOVE’ (12, CURRENT_VCB CVCBST_VOLCKNAM], RESNAM [6]); 
247 156 2 ELSE | 
: 1199 18 BEGIN 

: 11 138 ACB = CURRENT_RVT CRVTS$B_ACB); 

> 1181 15 ACTIVITY_A = CURRENT _RVT CRVT$W ACTIVITY): 

3 1; H+ BLOCKID_A = CURRENT_RVT CRVT$L_BLOCKID); 

: 11 162 | 
3 171 16 

: 11 164 

iy i 

11 189 

$11 168 

311 ig 

3 11 170 

: 11 171 

3 11 1 

3 71 17 

3 11 174 


SLRATLESELES 


Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Ge Ge Se Ge SH Ge Se Se Se Se Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge 


ee a a ed ed a oe od nd od = td 


wuvuvVvUU 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


w 


NOU wo 


se te ed 


NOME UP 


Jf, STATUS EOL SS$_NORMAL 
WAIT_FOR_AST (); 
STATUS = .LOCK_BLOCK CLCK_STS); 
Jf NOT .STATUS 
ERR_EXIT (.STATUS); 
Jf ;,-BLOCKID_A NEG 0 


GIN 
DEG toc (LOCK BLOCK CLCK_1D}); 
ioe 


have A. i — on the blocki 
zero. ie te eeu ovr fet rearm the b 


r blockin "tock a already 
conversion to CR with the bys i 


2358 


ock r ie will immediately wiee such 
poet when we return from the ENO activity will be disabled again. 
shes t all works ok because we are going to retest conditions once we 
t from this routine, and will simply re-execute it. 


if TESTBITSS (.ACTIVITY_A) 
BUG_CHECK (XOPERR, ‘unexpected activity flag state’); 
AcB CACBSB_ ] = PSLSC a . ACBSM_NODELETE; 
ACB LACBSL_PID = .scuset 
ace ACBSL-AST OPSDEOBLOCK 
ACBSL_A STPRMD = ,LOCK  BLOEK’ Sree. 10); 
-BLOCKID_A = .LOCK_BLOCK (LCK_1ID); 
STATUS = SENO ( ak = othe 


CRMODE, 
tags. = “Eom gusts ‘ stcsn CONVERT + LCKSM_SYNCSTS 
aon 6 & at ppoauora LCRSM_NOQUEUE , 

= 


KAST = pe ROUTINE, 
ASTPRM = .CURRENT_9CB); 


F STATUS 
STATUS = .LOCK_BLOCK CLCK_STS); 
if NOT .STATUS 
BUG_CHECK (KXQPERR, ‘Unexpected lock manager reaction’); 
END; 


iSseo-tgge P9:35:93 9 PNScdunteaStencch tix.snesvockers.032- aff 


Be Be Oe Be Oe Be Oe Se Se Be Oe Se Se Se He He Be Oe Oe Be Se Oe OH Oe SH OH Oe we Oe Oe Oe Oe Oe Oe Oe Se Se See SEH Se Se Se He Oe Se Oe Se SH SHS SH Se Oe OH we 


iste he 93: 3: $3 D1 SkSUMGMAST eacchti ix. . SRCJLOCKERS.B32 39°13), 


“EXTRN SCHSGL_SWPPID, XOPSDEQBLOCKER 
XTRN XOPSBLOCK_ROUTINE 


Ono-m 


0BFC 00000 ENTRY BLOCK UAIT, Save R2,R3,RGRS.RO,R7,RBRO,~ ; 2118 ; 

000000006 BOvAR — SYSSENG, R11 | 

sat it ne | 

td : 1 we 8 ReSRAM _D+4 a : 
19 4231315 MOVL iss PRE SNAM 145 : 
2 Rove SNAM+4 146, ; 

5 MOVL 148 | : 

TST 4a ; 

BNEQ «6s «1$ : 


on 
sess 
2 z 
SPRNSRSTRSVESMAE RATS 


MOV 1 8<R6) : 151 
ADDL Ret ROD B crivity 4 : 21 é 
1 O ADDL 4100 (RO), BLOCKID_A + 2153) 
move Rg), R : 2154 
16 AE 0080 «(¢ ( mov 3 » 128(RO), RESNAM*6 Pens 
9C AA C1 1$: ADDL (BASE), ACB > 215 
3¢ AA ci Oo ADDL teases “ACTIVITY A + 215 
8 AA | ADDL BLOCKID“A + 2160 
30 9C MOVL Hogi + 2161 
16 AE 18 9¢ $3 mOvC3 ASE) ae ; 
E C 69 2%: CLRO ; 2170, 
7E D4 CLAL = 438) : 
SA bo PUSHL BASE : 
00006 CF 9F PUSHAB CONTINUE_THREAD : 
E oe CLAL =(SP) : 
20 ar F PUSHAB RESNAM_D ; 
0 PUSHL # 3 
20 AE OF PUSHAB LOCK_BLOCK ; 
04 Do Oo PUSHL #4 ; 
—E DD PUSHL #30 F | 
$3 08 CALLS oh! 65 Syssend : 
i ED 01 BLBC eTATOS : 172 
01 DI cHPL TATUS. # ; sid 
00006 CF (8 CALLS #0, WAIT_FOR_AST > 2178 | 
; ¢ 3$: MOV ZWL Lock K Blot. STATUS : 189 
E 97 BLBS STA : 2182 | 
BF 9A 4$ CHAU STATUS > 2184 | 
68 03 5$: TSTL  (BLOCKID_A) ; 2186 | 
i BEQL PF} 
04 At )) PUSHL LOCK BLOCK+4 ; 2189) 
0000v CF oi F CALLS #1, BEQ_LOCK eo 
04 67 00 ES AA 6$ BBCS #0, (ACTIVITY_A), 7% ; 3202 
ffoe OU ORD <RyGs xc KOPERR!4> : <n 
ge a 7%: *OVB : $606 
000000006 MOVL Stitol SUPPID, 12(ACB) : 


mim RMMoOMmMMO 
BADOBSS “¥ HHO AAOOM 


nn" 
" 
om 


3; Routine Size: 252 bytes, Routine Base: S$CODES + 0660 


; 1252 2230 1 


ibeseo-t96e 90:88:35 yt etre 


$s 
T 
MOV XOPSDEQBLOCKER, 16 
MOVL  LOCK_BLOCK+4, 20(A 
erg tt BLOCK+4, (BLO 
bus XOPS$BLOCK_ROUT INE 
PUSHL (RO) 
CLRO. =< SP) 
CLR -($P) 
MOVZBL #110, =(SP) 
PUS LOCK’ BLOCK 
PUSHL 
PUS 
CALLS #11, SYSSENQ 
ROVE §— RO, “STATUS 
BLBC ~=_s STATUS, 8$ 
ROVZWL LOCK BLOCK, STATUS 
BLBS -STATOS, 
BUG 
‘ <BUGS_XOQPERR!4> 
RET 


a 
ER 
(A 
cB 
CK 


tcf 


C 
) 
I 


8) 
D_A) 


Bete Se Se Se Se Ge Se Se Ge Ge Fe Se Se Se Se Se Se Be Se 
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Be Se Be Ge Se Se Se Se Se Ge Se Se Fe Se Se Se Se Se Ge Se Se Se Se Se Fe Se Se Se Se Se Se Se Se Ge Ge Ge Ge Se Ge Ge Se Se SH Se Se Se Se Ge Ge Se Se Se Ge oe 
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vuvuvvU 
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SSN NO 
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GLOBAL ROUTINE TAKE _BLOCK_LOCK : L_NORM NOVALUE = 


BEGIN 
LOCAL 
RESNAM : VECTOR £20. ByTE}. 
R SNAR_D : VECTOR INITIAL (LONG (18), LONG (RESNAM)), 
LOCK_BLOCK : BBLOCK (8); 
BIND_ COMMON; 
EXTERNAL ROUT! 
CONTINUE_THREAD : L_NORM, 
WAIT_FORTAST —: L“NORM: 
(RESNAM f03) = *F11B'; 
(RESNAM £43)<0,16> = ‘$b’; 
IF .CURRENT_VCB CVCBSW_RVN) EQL 0 
THEN 
CHSMOVE (12, CURRENT_VCB CVCBST_VOLCKNAM], RESNAM (6); 
ELSE 


eels 
CHSMOVE (12, CURRENT_RVT CRVTST_VLSLCKNAM], RESNAM [6]); 


STATUS = SENQ ( EFN = EFN, 
KMODE = LCKSK_EXMODE, 
FLAGS = LCKSM_SYNCSTS + LCKSM_SYSTEM + LCKSM_NOQUOTA, 
LKSB = LOCK BCOCK, 
ASTADR = CORTINUE_THREAD, 
ASTPRM = .BASE, 
RESNAM = RESNAM_D); 
IF NOT . STATUS 
ERR_EXIT (.STATUS); 
IF Status EQL SS$_NORMAL 
WAIT_FOR_AST (); 
STATUS = .LOCK_BLOCK CLCK_STS); 
IF Nor . STATUS 
ERR_EXIT (. STATUS); 
BLOCK_LOCKID = .LOCK_BLOCK CLCK_1D); 


z 


tb-Seo~1984 00:58:25 VAKGII BLisec2 y4.0-742, Page, 43 


; 
i 
} 
| 


eh 


Re Se Se Se Se Be Se Se Se Ge Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se FH Se Se we Se Se Ge Se Se Se Se Se ee SESH Se Se SH ee SH Se Se Se Se Se Se Se Se oe 


voe=601 


003 .ENTRY TAKE_BLOCK_LOCK, Save R2,R3,R4,R5 
5 24 C SUBL2 #36, SP 
Of A 10 A 8 MOVAB +4 han : SRAM_D 
6 42313146 F D MOVL aii 520134, RESNAM 
4% OA 6224 BF B MOVW #25124, RESNAM+4 
5 8B AA D MOVL  =104(BASE), RO 
E ag TSTw  14(RO) 
BNEQ =-'1$ 
16 AE 0080 6c0 ¢ moves #12, 128(RO), RESNAM+6 
5 9C AA MOVL.  =100(BASE), RO 
16 AE 18 «OA C 28 mOVC3 Pt: Bete OS. RESNAM+6 
— 7c CLRQ. = = (SP) 
7E D4 CLRL = = (SP) 
SA DD PUSHL BASE 
00006 CF 9F PUSHAB CONTINUE _THREAD 
E D4 CLAL (SP) 
20 AE OF PUSHAB R SNAM_D 
38 OD PUSHL 
20 AE OOF PUSHAB tock. BLOCK 
05 DD PUSHL 
1E 0D PUSHL #30 
000000006 F CALLS #11, SYSSENQ 
D MOVL RO, STATUS 
1 E BLBC STATUS, 4$ 
01 D1 CMPL TATUS, #1 
6 12 BNEQ 
00006 cf 0 FB CALLS WAIT_FOR 
2 H4 MOVZWL rot BLOEK, status 
0 € BLBS = STATOS, 
Bf CHAU STATUS 
FF7C «OCA 04 AE b0 MOVL LOCK_BLOCK+4, -132(BASE) 


; Routine Size: 119 bytes, Routine Base: S$CODE$ + 075C 


kK 6 
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ag 
8 
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GLOBAL ROUTINE CACHE_LOCK (LOCK_BASIS, LOCK_ID, MODE) : L_NORM = 


i FUNCTIONAL DESCRIPTION: 


This routine takes out the specified special purpose cache 
lock identified by the lock basis. 


i CALLING SEQUENCE: 
CACHE_LOCK (LOCK_BASIS, LOCK_10, MODE) 


' INPUT PARAMETERS: 
! LOCK_BASIS: basis for lock n 
LOCK. ie address of xisting. tock ID or 0 
MODE? mode of operation: 
9 = normal cache lock, system, noqueuve 
= force flush lock, process, queued 


SSLESEAN 


RIPPER EFOPOMONPOPIPPUNPOIDNY <tr 


2 = write access lock, system, queued 


! 
' 
' 
! 
' 
! 
' 
' 
' 
' 
' 
' 
' 
' 
i 
' IMPLICIT INPUTS: 
es pe .VCB: VCB of volume 
' 
' 
' 
' 
! 
' 
! 
! 
i 
! 
! 
A 
' 
' 
‘ 
' 


Mew 


CURRENT_RVT: RVT of volume 
XOP$GL TPILESERVERS PID > a tite server process 


i QUTPUT PARAMETERS 
LOCK_ID: ederess to store ID of lock taken 


i IMPLICIT OUTPUTS: 
NONE 
i ROUTINE VALUE: 


| 
LBC if lock not available 
LBS if lock successfully taken | 


— —) ss et ts 


MEN 0 ONO UE WN OOONOU Sw O 


i SIDE EFFECTS: 
NONE 


' system service status 


STATUS 
LOCK_STaTuUS : BBL OCk 8), | lock status block | 
RE SNAM : VECTOR (10, BYTE], ! resource name string 
$ VECT On 2); ' resource name ptr ine descriptor 
PARENT ID, i parent ID for lock 
LOCK_MODE i mode of lock to take 
LOCK-FLAGS : BBLOCK (4), $ENQ mode fla 


CACHE_TYPE; type code of "Foche being locked 


EXTERNAL 
MOPSGL_FILESERVER : ADDRESSING ~MODE (GENERAL) ; 
PID of cache server process 


EXTERNAL ROUTINE | 


em a ee a ee ed ed od dD 


—-OOe 


p-1984 VAX-11 Bliss-32 V4.0-742 P 46 
. 382 99: 3: $3 DISK SVMSMASTER:CF1IX.SRCILOCKERS.B32:2 (18) 
ue after wait 

oe se ageier AST 


CONTINUE THREAD : L_NORM, 
WAIT T me “NORM, 
XOPSONLOCK “CACHE : : C_NORM ADDRESS 


eeProra —— 


I 


BIND_COMMON; 


: , oes up resource name and parent ID. Get the existing lock ID if any. 


( NAME) = E118" 

(nes <0,16> = ‘$c’ 

CHESNAR af - io OCK BASIE; 

RES j= 

RESNAMS pfi3 = hes 


PARENT_ID = .CURRENT_VCBCVCBSL_VOLLKID]; 
LOCK_MODE = LCKSK_CWMODE; 


OCK_FLAGS = LCKSM_SYN sts OR LCKSM_SYSTEM OR LCKSM_NOQUOTA; 
F (COCK_STATUSCLCR_ID comeegen 1D) NEQ 0 
THEN LOCR_FLAGS = LOKSM_CONVERT; 


! Check that the file server process is running. If not, we cannot take 
! out the normal cache lock because no one can respond to the blocking 
: AST. For the normal cache lock, use PR mode, noqueue. 


IF .MODE EQL 0 
THEN 


BEGIN 
IF Narre. ae EQ. 0 
THEN RET 


LOCK RODE. = LCKSK_PRMODE; 
LOCK “FLAGS = Tock. FLAGS OR LCKSM_NOQUEUE; 


: First take out the lock in process mode. 


SELESRENLSSSLESESSLES 


IF .LOCK_FLAGSCLCKS$V_CONVERT) 
THEN BUG_CHECK (XQPERR, FATAL, ‘Unexpected lock manager error’) 
ELSE ERRTEXIT (. STATUS ; 


a a ed ed od wd dd 


Fe et et et et et et et ot et et at ek dk th kk 


Pp STATUS = SENQ (EFN = EFN 
P LKMODE = .LOCK_MODE 

10 P LAGS = .LOCR FLAGS, 

1 Pp SB. = LOCK STATUS, 

I P RESNAM = RESNAM_D 

1 Pp ARID = .PARENT fb, 

14 P ASTADR = tOnT TE _THREAD, 

15 Pp ASTPRA = .BASE 

13 IF Nor STATUS 

18 AND .STATUS NEQ al _NOTQUEUED 

: THEN 

3 


bs Wo ta. x ‘ < eet 
voeeb0t 1e-85b=1982 99:35:83 UTS SlwGuaSfensch tik sneavockers.03203%° «185 


3 1423 399 

3 1424 é IF -STATUS EQL SS$_NORMAL 

; 1° 5 : HEN WAIT_FOR_AST 7); 

3 14 4 5 IF . STATUS 

3; 14 4 HEN 

3 14 405 BEGIN 

3; 14 4 STATUS = .LOCK_STATUSCLCK_STS); 

7 14 4 IF NOT .STATUS 

3; 14 ¢ rts THEN 
; 14 4 IF .LOCK_FLAGSCLCKS$V_ CONVERT) 
3 14 410 4 THEN BUG CHECK (XQPERR, FATAL, ‘Unexpected lock manager error’) 
; 1435 41 ELSE ERR-EXIT (.STATUSS; 
; 16 tig LOCK_FLAGS =".LOCK_FLAGS OR LCKSM_CONVERT; 

3; 14 414 ! If the lock needs to be Byptee owned (normal cache lock and write 

3: 1439 415 ' access lock) now convert it. 
3 1440 416 ! 
3 1441 41 

3 eee 418 IF NOT .MODE 
3 144 41 THEN 

3 1464 420 4 BEGIN 
3 1445 421 4 LOCK FLAGS = .LOCK_FLAGS OR LCKSM_CVTSYS; 

; 1466 4 ¢ 4 CACHE TYPE = .LOCK-BASIS<0,24>; | 
3 1466 423 4 IF .CACHE TYPE GTRO FIBSC_EXTENT_CACHE 

3 1448 424 4 THEN CACHE TYPE = FIBSC_QOOTA_CACHE; | 
3 1449 P 2425 4 STATUS = SENQ (EFN = EFN 

; 1450 P2626 4 LKMODE = .LOCK MODE 

> 1451 P 2627 4 LAGS = .LOCR FLAGS, 

; 1638 P 2628 4 KSB = LOCK_STATUS, 

3 145 P 2429 4 RESNAM = Dd 

> 1454 P 2430 4 ARID = .PARENT {D, 

3 1455 P 2431 4 BLKAST = XQPSUNLOCK CACHE, 

3 1626 P 24 ¢ 4 ASTPRM = .CURRENT_UCB OR .CACHE_TYPE 

3 1¢2 4 4 ); 
; 1458 434 4 IF NOT .STATUS 
3 1459 435 4 THEN 
3 1460 436 4 IF .LOCK_FLAGSCLCKS$V_CONVERT] 
3 1461 437 5 THEN BUG_CHECK (XQPERR, FATAL, ‘Unexpected lock manager error’) | 
; 1468 438 4 ELSE ERRTEXIT (.STATUSS; | 
3 146 439 3 

3 1464 440 END; 

3 1465 441 

; 1466 44 IF_.STATUS 

3 146 44 THEN .LOCK_ID = .LOCK_STATUSCLCK_ID); 

3 1468 444 

; 1469 445 . STATUS 

3; 1470 446 END; ! End of routine CACHE_LOCK 


-EXTRN YOPS$GL_FILESERVER 
-EXTRN XQPSUNCOCK_CACHE 


007¢ 000 ENTRY CACHE_LOCK, Save R2,R3.R4.R5,R6 : 2285 | 
56 000000006 90 9 0000 HOV SYSSENG, RO : | 
E 18 C2 000 SUBL2 #24, SP : 


a ee > 


Dn han aa pina saan nat ne alas ce eae MRR sea) Cote CSS En te ab eee eerie 


7 
LOCKER e. -1 :38: VAX-11 Bliss-32_V4.0-7 
bet 1o-208-198e 99:33:93 DISKSVMSMASTER:CF1iX. eRe TLOCKERS.832. 4 malt 4 
42313146 BF MOVL 20134, saa RE SNA : 2353) : 
os hi abe ft 89 MOV sebt ge : 4 3 
AC D MOVL i .BASi RESNAMS6 > 2355, ; 
OA PUSHL 5 2$ | : 
04 Ag MOVAB me RE SAR. D+4 : 3 | ; 
AA D MOVL Sait) ; 2359) ; 
C Ad D move ot 4(R0) ae 1D ; | ; 
; i 3 mvt 84 {Osea a) 
18 AE 08 ROVL ian 1D, “{ock. STATUS +4 : | : 
53 D MOVE LOCK_FLAGS ; 3365 | : 
Oc AE D3 00 STL ie : 2372. : 
000000006 p i PeTL —-XOPSGL_FILESERVER : 2375 : 
BNEG = 2$ : : 
ps cURL RO : 2376 : 
54 3 9 MOVL #3, LOCK_MODE : 2377 : 
3 BISB2 #4. LOCK“FLAGS : 2378) ; 
— 7C¢ CLRO. 0 = §P) : 2392. ; 
7E D4 CLRL ~tap) : | ; 
SA BD PUSHL BASE : | ; 
00006 CF 9F PUSHAB CONT INUE THREAD : | ; 
5 oD PUSHL 118 : 3 
18 AE OOF PUSHAB RESNAR-D : ; 
5 ) PUSHL K_FCAGS : : 
34 AE OF PUSHAB tock” “STATUS : ; 
34 pp PUSHL L cK MODE F : 
F CALLS #11, SYSSENQ : : 
D VL STATUS : ; 
1 E BLBS STATUS, 4$ : 2395 ; 
00000988 =F p cAPL STATUS. #2488 + 2394 2 
69 53 1 € BBC #1, LOCK_FLAGS, 8$ : 3396 ; 
rere BUGW : 2397 ; 
e WORD ase Ome wate g 3 
01 D1 CMPL > 2400 : 
BNEQ 3 3 
00006 CF F CALLS WAIT ig" _AST > 2401 : 
g : BLBC statue > 2403 : 
“CO MOVZ2WL LOCK “staly S, STATUS ; 406 ; 
p 3 : BLBS STATOS 6 : 407 ; 
4D BBC 1, LOCK_FLAGS, 8$ > 2409 | 3 
FEFF BUGW ; 2410) 3 
e WORD ‘ UGS, XOPERR!4> : ; 
5 0 &1sB2 sae : 412 | : 
4 0 AC f BLBS > 261 ; 
5 4 F B1SB2 ase, agit > 2421 : 
50 046 ac i EF EXT2V 4 rote BASIS. CACHE _TYPE : 24 ; ; 
CMPL ACHE _T ; 3 
0 1 CMP i 4 
50 06 MOVL CACHE _TYPE : 434 ; 
C CLRQ > 2453 | 3 
000000006 OF PUSHAB XQPSUNLOCK CACH f : | : 
7E 94 C9 BISL3 CACHE_TYPE> -108(BASE), -(SP) : : 


—_—— -—_—— --- -- -- — —— - -—— —— . . cc 


GRE EL Ee tt nceenagenstnseteensnpnlenmathanntinenanars 


LOCKER -Sep-1 VAX-11 Bliss<-32 v4.0+742 
Vocebot ses 99: se (0:3 GS dette tekacl tie cae occens.e3e" £38} 
43 04 CLAL (SP) g 
po SHL_ PARENT_ID : | 
18 Mi PUSHAB RE NAM” : | 
5 po PUSHL LOCK_FCAGS ; 
34 AE F 00001 PUSHAB Lock “STATUS ; 
3 DD 000 PUSHL K-MODE : | 
DD UY omit é | 
FB 0000 CALLS #11, $y SSENa : 
: i DOOD Bros stands, We + 2636 
06 « ee! 200 BBC note FLAGS, 8$ ; 3036 
gay \ ff guano <BUGS_XOPERR! 4> : | 
. | 
g BF EB 8S: CHU STATUS + 2638 
05 52 £9 EF 98: BLBC = STATUS + 264 
08 eC 18 OA 06 f1 10$:  MOVL Lock Kstaruses, @LOCK_ID ; 3c 
5 F6 118: MOVE 3 2646 


; Routine Size: 250 bytes, Routine Base: SCODES + 0703 
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; 


2 


; Routine Size: 24 bytes, Routine Base: S$CODE$ + 08CD 


3 1038 ret! } GLOBAL ROUTINE DEQ_LOCK (LOCK_ID) : L_NORM NOVALUE = ; 
3 1476 4 1 le : 
; 1475 4 1/ ; 
; 1258 : : FUNCTIONAL DESCRIPTION: ‘ 
3; 147 4 1/ This is @ central routine for doing simple dequeves of locks. : 
3 1? ? ¢ : It bugchecks on error. ° 
3; 1481 & 1 | CALLING SEQUENCE: ‘ 
3 1 ? : DEQ_LOCK (LOCK_ID) ° 
3; 14 4 1 | INPUT PARAMETERS: : 
; ¢ 5 re : LOCK_ID: ID of lock to release . 
3 14 46¢ 1! IMPLICIT INPUTS: : 
3; 16 463 1! NONE ° 
; 1489 464 1 | . 
; 14 465 1 | OUTPUT PARAMETERS: : 
3; 1491 £68 1/ NONE ° 
; 1336 467 1: ‘ 
3; 149 4 1 | IMPLICIT OUTPUTS: : 
3; 14696 & 1: NONE 6 
3; 1495 4 Y 1/ ‘ 
3 1698 471 1 | ROUTINE VALUE: : 
3; 149 472 13 NONE ° 
; 14698 473 1 ° 
3; 1499 474 1 | SIDE EFFECTS: ° 
3 1 475 1! NONE ‘ 
3; 1501 476 1: ° 
. ¢ 477 1 ie ° 
3; 150 $78 1 ° 
3 1 'e & BEGIN : 
3; 1505 4 ° 
3 1 oS 481 IF NOT SDEQ (LKID = .LOCK_I ° 
3 1 of : ; THEN BUG_CHECK (XOPERR, FATAL, "Unexpected lock manager error’); ; 
3 1309 & END; ! End of routine DEQ_LOCK : 
0 -ENTRY DEQ_LOCK, Save nothin : 2447 : 

76°79 O00 étra (SB) ° Stat : 

7E 04 : CLRL -(SP) : : 

04 ac OD PUSHL LOCK_ID : > 

000000006 90 4 Ff CALLS #4, SYS$DEQ ; : 

0 € 1 BLBS . is : , 

Aa 1 BUGW : 2482 | : 

00 e 1 «WORD <BUGS$_XQPERR!4> : ; 

4 17 18%: RET : 2484 | : 


; 1510 2485 1 


SS Or OO “ -— 


i - es 


1f-s¢ cen 18be MSSB Ss | Med ehleteacch Tio, cre scockers.e3203" c1a5 


S089 0 Elton 


; PSECT SUMMARY 
; Name Bytes Attributes 
: SCODES 2277 NOVEC.NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


; eesceese SyGbe(§ coceeeco Pages Processing 
3 File Total Loaded Percent Mapped Time 
; _$255$DUA28:(SYSLIBILI6.L32;1 18619 89 0 1000 00:01.9 


8 patermet tens 1 
; Warnings: 
; Errors: 


H COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:LOCKERS/OBJ=OBJ$:LOCKERS MSRC$:LOCKERS/UPDATE=(ENH$:LOCKERS) 
ize: mal Saat 8 + 0 data bytes 
21 


$ 

Run Time 

Sleseed Time: 

Lines/CPU Min: 

Lexemes/CPU-Min: 6675 
oY Ut Used: 281 pages 

Compilation Complete 
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